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Prelude. 
қт FRE а 
Si ge z Te Sfi LL. 


О - INTRODUCTION 


VLISP-10 est une incarnation du modèle de système LISP, nommé VLISP, 
_ conçu, mis en place et développé sur plusieurs mini-ordinateurs à 
l'Université de Paris 8 - Vincennes. C'est dans cette version, l'ordi- 


nateur PDP 10 qui en incarne les vertus. 


|. VLISP-10 est un système conversationnel trés amical et chaleureux. 


Sa préoccupation constante est d'aider les gens. 


| VLISP-10, conscient de sa valeur, n'en est pas moins de taille modeste 
(5k) permettant ainsi à ses usagers d'utiliser pour leurs besoins la 
plus grande partie de la mémoire disponible. 

С VLISP-10 est un intérprète trés rapide, en conséquence, des applications 
dont la lenteur serait décourageante sur d'autres systémes LISP sont 

 exécutées en VLISP dans un temps raisonnable. 


VLISP-10 est un système naturel : son implémentation est définie 
formellement, la démonstration de sa correction n'est pas un horizon 


inaccessible. 


| VLISP-10 est un système optimiste et anti-autoritaire. || suppose que 
ses utilisateurs sont tout à la fois audacieux et responsables, en consé- 
quence, 11 donne accès à l'utilisateur aux primitives d'implémentation du 
systéme et les protections y sont trés réduites : nous n'avons jamais eu 


à regretter cette décision. 
VLISP-10 est un système effectivement utilisé par ses propres implémenteurs 


pour plusieurs projets d'Intelligence Artificielle en particulier, et de 
traitements symboliques en oénéral. 
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VLISP-10 dispose d'un mode de sortie en braille. Les programmeurs systéme 


mal-voyants y sont les bienvenus. 


VLISP-10 permet d'écrire des ensembles de fonctions LISP transportables 


sur tou: autre système VLISP, 
VLISP-10 serre au plus prés l'actualité de la recherche et rend | 
disponibles les développements récents de LISP : contextes, filtrages, 


démons, acteurs, ... 


VLISP-10, enfin, vous souhaite la bienvenue. 


ABCDEFGHIKRIMNOrQRST . 


8 сс E 6 SE: 19 E RES e epe G 


$ 


? Sep ES m жне пай! ng LE m 


í 
H $ 
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3. 


1 - DESCRIFTION DE L'INTERPRETE 


lat = LES TYPES 


La structure. de base LISP est la S-expression (expression symbolique) 


qui peut étre : 
- un atome littéral ou numérique 
= une paire pointée de S-expressions : ( 81 . 82 > 


- une liste de S-expressions С 81 82 ... sN ) 


Les délimiteurs de S-expressions sont l'espace n,le point .,la parenthèse 


ouvrante C et la parenthèse fermante ). 


1.1.1 - Les atomes littéraux 


IIs jouent le rôle des identificateurs de certains autres langages. І 15 
sont «< créés implicitement dès leur lecture dans le flux d'e entrée ou 

| explicitement par la fonction GENSYM. 

Leurs noms (P-name ou Print Name) est une suite de caractères que l| conques 
(contenant au moins un caractère non-numérique). À leur création,seuls 
les 18 premiers caractères sont pris en compte. On peut insérer dans un 

` P-name des délimiteurs si on les fait précéder du caractère fa Le / peut 
bien entendu être "slashi fié" lui-même. | | 
Chaque atome posséde une valeur propre : sa C-valeur qui est indéfinie à 
sa création, ainsi qu'une liste de propriétés : sa P-liste qui contient 
certains aspects particuliers de cet atome,par exemple la ou les fonctions 


qui lui sont associées. 
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Latet. ГА — = == А , š | 
FEL aan | | | - 4 - 


sp 


Un atome littéral a approximativement la séructure suivante : 


E | 


C-valeur| P-liste 
| i 
| ! 


En VLISP-10 le CAR d'un atome est sa C-valeur, је CDR sa P- liste. 
Ces atomes sont stockés dans une zone fixe gérée dynamiquement. 


Certains atomes sont déjà connus de l'interpréte : 


- les constantes littérales qui contiennent leur 


propre adresse en C-valeur : 


NIL UNDEF T LAMBDA FSUBR SUBR EXPR FEXPR MACIN 
MACOUT QUOTE ; 


- les fonctions standard (voir 2.) 


1.1.2 - Les nombres 


Actuellement VLISP-10 n'utilise que des nombres entiers. lis sont stockés 
dans une zone spéciale gérée dynamiquement et sont représentés sur 56 bits 
(dont Ï bit de signe). 115 doivent être compris dans l'intervalle : 


[- 551... 255] 


Le P-name d'un nombre est la représentation de sa valeur dans la base de 
conversion courante (en général 10). La valeur d'un nombre est ce nombre 


lui-même. Un nombre n'a ni C-valeur ni P-liste. 


1.1.3 - Les chaînes 


VLISP-10 possède un troisième type d'atomes, les chaînes de caractères. 


Elles sont décrites en 3.. 
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1.1.4 - Les listes 
Les listes sont représentées d'une manière standard ; les différents 
éléments d'une liste utilisent un doublet dont la partie gauche (le CAR) 


contient l'élément et la partie droite (le CDR) contient un pointeur sur 


l'élément suivant ou NIL pour le dernier élément. 


Exemple : 


La liste : est représentée : 
TTE "T 


Les paires pointóes С 81 . 82 ) permettent de décrire des doublets 


entiers avec 81 en partie gauche et 82 en partie droite. 


Exemple : 


б 99 99 K e 


La liste : est représentée : 


(A (BC. DE. P) Hie 
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1.2 - FONCTIONNEMENT DE L'INTERPRETE 


La boucle principale de l'interpréte est l'appel de la fonction standard 
TOPLEVEL, indéfiniment. Cette fonction redéfinissable à volonté lit une 
S-expression, l'évalue en utilisant la fonction interprète EVAL, et imprime 
la valeur de cette évaluation. | 


La S-éxpression lue peut être un atome ou une liste. 


1.2.1 - Evaluation d'un atome 


La valeur d'un atome littéral est sa C-valeur. L'évaluation d'un atome 
littéral dont la C-valeur est indéfinie (auquel on n'a pas encore donné 
de valeur) provoque à son évaluation une erreur avec impression du. ui 

= XX UNDEFINED VARIABLE : l'atome indéfini 


La valeur d'un nombre ou d'une chaîne est ce nombre ou cette chafne elle- 


1.2.2. - Evaluation d'une liste 


La fonction EVAL considère toujours une liste comme un appel de fonction. 
Cette liste s'appelle une forme. Le CAR de la forme est la fonction, le 
CDR de la forme les arguments de la fonction. 

La valeur d'une forme est la valeur ramenée par l'application de la 


^ 


fonction à ses arguments. 
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1.2.3 - Les Fonctions 


La fonction (le CAR de la forme) peut être un atome littéral dans le 
cas d'une fonction prédéfinie (standard ou utilisateur) ou une liste 
qui est : | 
- Soit une A-expression qui est fa déclaration explicite 
d'une fonction | | 
. = solt une nouvelle forme dont la valeur est la fonction 
demandée. | 


| Pour fous ces cas | les arguments (le CDR de la forme) peuvent être 
| évalués ou nmn. — | 


Elles оосо. en. TN machine et sont rés! dentes dans | "interprète. 
ll y a deux Km de fonctions standard : 


SUBRs : qui ont un nombre fixe : ENER = | 
NSUBRs qui ont un nombre quelconque d'arguments 


= tés” évalués 
- les FSUBRs qui ont un nonbre . ШО же: поп évalués 
. Ces dernières en général ne feront évaluer que certains de 


leurs arguments ce qui permet à l'interprète d'avoir des 
structures de contrôle conditionnel les. 


Ces fonctions standard sont décrites en 2.3 


L'utilisateur peut se définir ses propres fonctions en associant à un atome 
ne A-expression ; plus précisément en mettant sur la Р-115+е de cet atome 
une A-expression sous l'un des indicateurs sul vants : 
| - EXPR Pour une fonction qui évalue ses arguments ; 

- FEXPR pour une fonction qui ne fes évalue pas ; 
- MACIN pour les macro- fonctions d'entrée P 
= MACOUT. pour les macro-fonctions de sortie. 
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Une A-expression est une liste de la forme :. 
CLAMBDA variables 81... sN) 
L'exécution d'une A-expression se fait en 3 étapes : 


2 I. dés ет (paramètres actuels) évalués ou non, 
aux variables (paramètres formels). Comme dans tous les 
VLISPS cette liaison n'utilise pas de A-liste. Avant 
chaque liaison l'ancienne valeur de: [а variable est sauvée 
dans une zone de travail, la liaison peut donc E effectuer 

^ dans la C-valeur. ‘L'accès aux variables devient extrêmement 
rapide, par contre l'utilisation des FUNARGS du LISP 1.5. 

devient impossible ; 


-2) évaluation en séquence се “différentes expressions 81. ‚вй. 
st vateur de ta: dernière évaluation ӘМ sera la valeur retour- 
née par la fonction ; 


ет réstitution: des ancténnes valeurs des variables. 


iS 


1.2.4 - Li at son des arguments 
Wt em. oer ° 15 DIIS u - Ze м рі DE e ` жы? e ТЕ SE DT | E 7 DM S i © A "de Ft ^g = 4 ` 1 Ы 


Leg arguments "Sont tés aux г variables d'une manière spéci fique à chaque 


* type de. аса 


1.2.4.1 - Liaison_des EXPRs > 


A l'appel d'une fonction de type EXPR, tous les arguments. sont évalués 
puis rassemblés en une liste des valeurs. Cette liste est liée au ығы 


formel: qui peur: être : > Des tut ette сары mue VE 9 ка 


= une tiste de variables. Dans ce cas la liaison s 'effectue 
uuu De la liste des variables et la liste 
des valéurs. Si la liste des valeurs est plus grande que 
cetle des variables, les valeurs restantes sont ignorées, 
сесі permet de faire. des effets de bord. Si la liste des 


"variables est plus grande que celle des valeurs, les variables 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 12/106 


en trop sont liées à NIL et font office de variables 
locales ; mE 


- une variable. Dans ce cas la liste entlére des valeurs est 


е 999 9» 985» e @ e 


Гібе à cette variable ; 


Exemple : 


e 4 e 046 98 


EXPR ? CCLAMBDA CX Y Z)(PRINT X Y 2)) 1 2 3 (PRINT 'CEFFET DE BORD))) 
(EFFET DE BORD) 

123 

3 


EXPR ? CCLAMBDA СХ Y Z)(PRINT X Y ZO 1) 
1 NIL NIL 
= NIL 


za 


ЕРЕ — ? CCLAMBDA X (PRINT XD) 1 2 3 4) 
423% 
=Œ 238 


EXPR ? (LAMBDA (X Y . Z)CPRINT X Y Z)) 12 34) ` 
12 (3 4) 
(3 4) 


1.2.4.2 - Liaison des FEXPRs 


Pour ce type de fonctions aucun argument n'est évalué. Tous les arguments 
sont rassemblés en une liste qui est liée à la première variable du 
paramètre formel (qui doit être obligatolrement une liste). Les autres 
variables de cette liste font office de variables locales et sont 
initialisées à NIL. Е | 
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Exemple i 


FEXPR ? CCLAMBDA. OOCPRINT X))(CAR ' СА В))) 
(CAR "СА B)) 
(CAR "СА В)) 


FE XPR ? (CLAMBDA (X Y . ZXPRINT X Y Z))CADDI 2)) 
= CADD1 2) NIL NIL 
= NIL 


Ces liaisons sont identiques aux EXPRs mais les arguments. (le CDR de ce 


= qui a été lu ou devait être imprimé)ne sont pas évalués. 


= 1.3 - UTILISATION DE L'INTERPRETE 


Actuellement l'interprète VLISP-10 utilisé à Vincennes se sert du projet 
| programmeur 630,500. Sa version .SAV ainsi que la plupart des utititalres 
sont stockée sous ce numéro de pg.pj. 11 fonctionne en mode conversatione! 
à partir du terminal lourd de l'Université. | | 


А B C D E F G H J K L M NO PQ R < Т 

19 
w арра ІШ 
412255222 
„рур | 
s LLLI LL LL 
ЕРІНІ e 
„кү ру M 
„рр | "ë Ш 

' RENTREE —-H- | 
REINER REENEN 
SE 
LLL EL LLL tli Lilli 
НИЖЕ RES WR ques 
А 444-1 ++ 
deseseeegsgeeeggg 
ињ 6---- Ho 
„Lidel E 
вања HHHH LLLA 
1 ede LL. 21! M 
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- 11 = 
1.3.1 Fonctionnement en mode conversationne! 


|| faut au préalable se mettre sous contrôle moniteur en exécutant le LOGIN. 


Dans le dialogue ci-dessous, !e texte frappé par l'utilisateur est souligné. 


. RUN VLISP [630,309] {activation de l'interprète sous contrôle moniteur 


«e 


VLISP 19 

| Ee identification de l'interprète 

--- ALLO ? --- 

Q .* x, = {entrée d'une S-expression BEEN 
z NIL | (impression du résultat de son évaluation 
2 | xA | О | 20 
? (STOP = (rappel du moniteur 

EXIT | Я 
, =; | {le moniteur attend une commande 


“ < 


1.3.2 - Caractères spéci aux sur la TTY 


L'intérpréte utilise la routine de service standard de gestion des termi- 
naux. L'utilisateur peut donc modifier les caractéristiques du terminal 
au moyen de !a commande moniteur TTY , par exemple la largeur du champ 
d'impression, le transcodage minuscule-majuscule, ... 

En utilisation normale : 

- on peut utiliser indifféremment les caractéres majusucles ou minuscules ; 


- |в caractère RUB-OUT permet d'enlever le dernier caractère frappé ; 


le caractère CONTROL-R fait réécrire la figne en cours (en cas de surabon- 
dance de RUB-OUTs par exemple); 


- le caractére CONTROL-U permet de recommencer une ligne ; 
= fes caractères RETURN et ESCAPE signalent la fin de la ligne ; 


- les caractères CONTROL-C et ETX rappellent le moniteur. 11 vaut ml eux 


utiliser ta fonction STOP qui de plus ferme tous les fichiers ouverts. 
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1.3.5 - Utilisation des autres périphériques 


L'utilisation directe de l'imprimante (0Р5 11) et du lecteur de cartes 
(CDS 11) est à déconsei ller actuellement car cela perturbe le fonction- 
nement du moniteur. Si votre programme VLISP est sur cartes et si vous 


désirez les résultats sur l'imprimante 


| à la place de : | faites : 


.R PIP | | création d'un 
PROG. VLI/T=CDS11: fichier source sur - 
“С | disque à partir des 
| | cartes 

„RUN VLISP [630,300] | .RUN VLISP_[ 630, 300) КЕ 

| VLISP 10  VLISP 10 | ` activation de ` 

| | : l'interprëte 

| --- ALLO ? == | --- ALLO ? --- 


? (ОЛРІЛ 'CLPS11)) |? coureur 'CDSK CPROG.LST))){ Ouverture du М. 


2 CINPUT '(CDS1D) |? СІМРІТ 'CDSK (PROG. MD) ( exécution du fichier 


source Sur disque 


хх EOF. 00 хх E.O.F. | 
--- ALLO ? --- ies ALLO = 
12 СИНИ | ; ( passage en mode 
| ; | н | conversationnel 
? (STOP) |. |? (STOP) | | u 
EXIT | EXIT { rappel du oni teur 
š Т.В PIP ` | | édition sur impri- 
*LPSI11:-PROG.LST mante du fichier 
“С résultat sur disque 


1.3.4 - Inittalisation de VLISP 


Avant de commencer le dialogue sur la TTY, VLISP-10 va lire sur disque 
le fichier VLISP.INI, s'il existe, sous le numéro de projet-programmeur 


de l'utilisateur. 


Ce fichier peut contenir les initialisatlons souhaitées par l'utilisateur, 


une simulation de Batch, etc. 
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1.4 - LES ERREURS 


— er rpm nn 


Les erreurs sont détectées par le moniteur ou par l'interpréte. 


1.4.1 - Erreurs détectées par le moni teur 


Pour toutes ces erreurs un message est imprimé sur la TTY puis іе 
contrôle est rendu au moniteur qui se met en attente d'une commande. 
Si l'erreur n'est pas fatale, on peut relancer l'interprète avec la 
commande „REE sinon il faut recharger un interprète neuf avec la. 
commande .RUN VLISP. 


PC OUT OF BOUNDS AT USER PC xxxx 
NON EX MEM AT USER PC xxxx 
MEM PAR ERROR AT USER PC xxxx 


-3 ea). 


^ 


Si l'une de ces trois erreurs apparaît, 11 faut absolument 
recharger l'interprète, le système est dans un très. mauvais 
état. | 


? ILL REF MEMORY AT USER PC xxxx 


Cette erreur apparaît si l'utilisateur exécute des recherches 
sur des objets indéterminés ou sur des structures altérées. 
ех: | (CDDR 99999) | 


? PDL OV AT USER PC xxxx 


La pile de travail de l'interpréte est saturée. Cette erreur 
est due en général à une récursion infinie et n'est pas fatale. 
ex : le fameux combinateur : i 
? CCLAMBDA OOCX XJ) 'CLAMBDA. OOCX 202) 
? PDL OV AT USER PC xxxx 


‚КЕЕ 
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|.4.2 - Erreurs détectées par l'interprète 


Pour toutes ces erreurs un message est imprimé sur le fichier de sortie 


courant, l'évaluation qui a déclenché cette erreur est stoppée et le 


contróle est rendu à la boucle principale de l'interprète qui, rappelons-le, 


appelle la fonction TOPLEVEL. 


-— «шә җы» quu s dnb s emm vm Q em emm Wm Gs“ «ны» que mm (A Gm өзе! жаль 


“х READ ERROR. 
erreur de lecture. La S-expression lue est syntaxiquement 
incorrecte. En général cette erreur est due à une mauvaise 


écriture des paires pointées.- 


. XX OPEN ERROR CINPUT). 
| erreur à l'ouverture du device d'entrée. 
хх OPEN ERROR COUTPUT). ` ` 


- 


erreur à l'ouverture du device de sortie. 


хх LOOKUP ERROR CINPUT) : n 


^ 


erreur à l'ouverture du fichier d'entrée. 


. ** ENTER ERROR COUTPUT) : n 


* 


erreur à l'ouverture du fichier de sortie. 


1.4.2.2 - Erreurs: à l'évaluation 


am WM emm emm wm GR sh vie «Шар dent V G qup G Ver қый» Ó G vg «ғы» w s 


** UNDEFINED VARIABLE : a 


l'atome а est indéfinie. 11 n'a pas de valeur. 
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хи UNDEFINED FUNCTION CEVAL) : a | 
l'atome а ne possède pas de définition de fonction. Cette 


erreur est déclenchée par 1а fonction interprète EVAL. 


хх UNDEFINED FUNCTION (APPLY) : a | 
l'atome а ne possède pas de définition de fonction. Cette 


erreur est déclenchée par la fonction interprète APPLY. 


хх UNDEFINED FUNCTION (SUBR) : a 


l'atome a ne possède pas de définition de fonction de type 
SUBR. Cette erreur est déclenchée par la fonction SUBR. 


42 
єз 

s 
DA? 


* UNDEFINED FUNCTION (FSUBR) : a | | 
l'atome a ne possède pas de définition de fonction de type 


FSUBR. Cette erreur est déclenchée par la fonction FSUBR. 


х STATUS ERROR : n 


on a donné à la fonction STATUS .un mauvais argument. 


хх LABEL ERROR : a и НН 
l'atome а n'est pas une etfquette connue ou bien on a utilisé 
un GO ou un GOTO à l'extérieur d'un PROG. 


хх RETURN ERROR. Е | 
l'utilisateur tente de faire un RETURN à l'extérieur d'un PROG. 


«x ESCAPE ERROR. 
l'utilisateur tente de faire un LESCAPE ou d'utiliser une 


fonction d'échappement alors qu'il n'y a plus de A-expression 
acti ve. 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 19/106 . 


H АТОМ 
хх FULL 
хх USER 


их USER 


1.4.2.4. 


%% G.C. 


хх USER 


ыға жыз «ғы G G cum s ammi - Wm mmm ашы» s um җые qp omg AR x um APR G s. V s s s. emm mmm emm «ңар s s dew 


ERROR. 


il n'y a plus de place pour stocker les atomes. 


MEMORY. 


i| n'y a plus de place pour stocker les listes. 


STACK OVERFLOW. 


débordement de la pile utilisateur. 


STACK UNDERFLOW. 


la pile utilisateur est vide. 


- Erreurs contrólées par l'utilisateur 


STEP DONE | 
le nombre limite de garbages collecting autorisé par 
l'utilisateur est atteint. 


ERROR : 5 
l'utilisateur a appellé Ча fonction ERROR. 


-Ф--- H E Aren = MM == à = e 
ji | ' : H . 


' . 1 ` ; А : ë 
b Ë ' ; 4 
a. t DM -—— iem T d KSE т ашы r — <r amata ra ner see es 
t Ё Қ Ж 4 


1 H l a " i 
ss L. —-—-—F аф —— MÀ ———9 da —— ac 
, | | 
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2 - DESCRIPTION DES FONCTIONS STANDARD 


Toutes les fonctions qui vont être décrites dans ce старые sont 


rési dentes dans de système actuel. 


Pour chacune d'elles, on donnera : 


- le type de la fonction 
~ SUBR 
- NSUBR 
|. 7 FSUBR 
= de Type souhafté des arguments : 


une S-expression que! conque 


une liste 


un atome (atome littéral, nombre ou chaîne) 


un caractère (atome littéral dont le P-name est 
mono-caractére) 


о 9 ei à 


o- fn une fonction 


Le système ne contrôl le pas le type et la valeur des arguments fournis 


à l'appel de ces fonctions (sauf pour les fonctions status). 
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2.1 - LES FONCTIONS INTERPRETES 


СЕМА 8) - SUBR - 
C'est ta fonction principale de l'interprète. EVAL ramène la 
valeur de l'évaluation de s (qui est évalué). | 
ex : ? (EVAL 'CCONS 'A 'B)) + (А. В) 


(APPLY f D - SUBR. - - | 
ramène la valeur de l'application de la fonction f à la liste 
d'arguments 2 qui sont évalués. La fonction fn doit être une 
SUBR, une EXPR ou une À-expression. | 
ex : ? (APPLY 'CONS "(А В)) + (А. B) 


ŒVLIS 2) - SUBR - 
= | ramène la liste composée des valeurs des évaluations de tous 


les éléments de la liste 7. 


ex : ? (SETQQ L CCPRINI 1X(PRINI 2)CPRINI 3))) 
°° = + CCPRINI I2CPRINI 25CPRINI 322 
ымны 1.2 3> (1 2 3) 


(EPROGN 2) - SUBR -° 


évalue tous les E lemari de la liste 1. Raméne la valeur de la 


 derniére évaluation. 


ex : ? CSETQQ L CCPRINI 1)CPRINI 2)CPRINT 5222 
** > CCPRINI 1)СРВІМІ 2)CPRINT 322 
.? CEPROGN L) 1 2 3 + 3 


évalue les différentes expressions 81 ... sN. Raméne la valeur 
de la dernière évaluation, c'est-à-dire celle de sN. 


ex : ? (PROGN CPRINI 1)CPRINI 2)CPRINI 32) 1 2 3 
=` ` 3 
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(QUOTE 8) - FSUBR - 
| ramène s non-évalué. |! existe un macro-caractère qui 
facilite cette écriture : "в. (voir 2.15.7) 
ex : ? (QUOTE A) + A 


CID s)  - SUBR - 
c'est la fonction identique.ID ramène 8 qui est évalué. 
ех: CID ‘A) +A | | 


CSUBR fn 2) - SUBR - 
E applique la définition de type SUBR de la fonction fn à la 
diste d'arguments 7. Si fn n'a pas de définition de type SUBR, 
. une erreur apparaît avec impression du libellé : 
хх UNDEFINED FUNCTION CSUBR) : fn 
= ex : ? CSUBR 'ADDI '(3)) > 4 


CFSUBR fn 2)  - SUBR - 

| .' identique а SUBR mais fn doit avoir une définition de type 
FSUBR. Si ce n'est pas fe cas le libellé d'erreur est ú 
хх UNDEFINED FUNCTION CFSUBR) : fn 
Ces deux fonctions sont utilisées pour lancer la version. 
standard des fonctions standards redéfinles par l'utilisateur. 
ex : ? (SETQ N 3) + 3 
ü ? CFSUBR 'INCR 'CN)) + 4 
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2.2 Les prédicats de base 


2.2.1 Test sur les types 


«m a Gs өш» amis шы» АР G өш eg G Ge Unis єз 


Tous sont de type SUBR et raménent T 


du résultat du test. 


(NULL s>) 8 
(NOT 8) | 8 
` (ATOM s) 5 
CLITATOM. 5) в 
(LISTP ai | | 8 


2.2.2 Comparaisons 


CEQP 81 82)  - SUBR - 


- 20 - 


(vrai) ou NIL (faux) en fonction 


vrai si 


NIL ` 
= NIL (identique à NOT) 


est un atome (atome littéral, nombre 
ou chaîne) 


est un atome littéral 


est une liste 
(LISTP в) est equi valent à | NOT САТОМ s)) 


sert à tester 2 atomes litteraux. ЕОР ramène T si 81 et 82 sont 


les mêmes atomes littéraux, sinon ramène NIL. Si 81 et 82 sont des 


nombres, des chaînes ou des listes, EQP teste si 81 et 82 ont la 


même adresse physique. 


ех:  CEQP "А (CAR 'CA))) + T 
CEQP "СА В) "СА В)) + NIL 


— 81 82)  - SUBR - 


est équivalent à (NOT CEQP 81 s2)). 
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CEQ s1 82) - SUBR - I | 
sert à tester 2 atomes (de n'importe quel type). EQ ramène T si 
les 2 atomes в1 et 82 sont égaux, sinon ramène NIL. 
2 atomes littéraux sont égaux S "115 оп+ le même nom. 
2 nombres sont égaux s'ils ont la même valeur. 
2 chafnes sont égales ` si elles ont la même longueur et les nés 
caractères. 
Si 81 et 82 sont des Ts EQ teste 1 в1 еї 82 ont la méme 
adresse physique ( comme pour la fonction БОР). 
ех: (ЕО "А CAR '(А?)) + T | 
| CEQ CADD1 119) 120) > T 
(EQ "STRG" "STRG') > T | 
Gq "СА B) “А в)» NIL. 


соға 81 82) ` - SUBR - Е 
^ est équivalent à NoT (EQ 81 825). i 


| CEQUAL | 81 82)  - SUBR - | | 
sert à tester 2 listes. EQUAL гас т sl les 2 S-expressions 81 88 
ont |a méme structure, sinon ramène Мы, 
ex : ЕЕ ' (A B (c. ; D» CA B сс. D» -T 


ы оғы. 81 82) - SUBR - | 
| | est | équivalent à CEQ 81 82») ` 


CSORT a1 a2)  - SUBR - 
ramène T si le P-name de l'atome littéral al est plus petit ou 
égal lexicographiquement que le P-name de l'atome littéral a2. 
Cette fonction est utilisée pour faire des tris alphabétiques. 
ex: ? (SORT "АА 'AB) > T. 
200002 (SORT "ААА "АЛАУ > T 
? CSORT "АВС 'AZ) + NIL 
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2.3 LES FONCTIONS DE CONTROLE 


2.5.1 Les fonctions de contróle de base 


COR 81 ... 8N) - FSUBR - 
évalue successi vement les di fférentes expressions 81 ... ай 
jusqu'à ce que l'une de ces évaluations ait une valeur di ttë= 
rente de NIL. OR ramène cette valeur. OR permet de construire 
une structure de contrôle de type 


| si non 81 alors si non 82 alors s.e 8y 
ex: ? COR NIL NIL 2 5) + 2 — 


` (AND 81 ... 8N) - FSUBR - | | 
éval ue successi vement les différentes expressions 81... 8N 
Si la valeur d'une de ces évaluations est égale à NIL, AND 
ramène NIL sinon AND ramène la dernière évaluation aN. AND 
permet de construi re une structure de contrôle de type | 
si 81 alors si 82 alors TP eN. 
ех: ? AND 12 35) +4 
2 (AND 1 2 NIL 3) + NIL 


CIF 81 82 83 ... 8N) ` - FSUBR - 0 

si la valeur de l'évaluation de в PA différente de NIL, IF 
ramène la valeur de l'évaluation de l'expression 88, Sinon IF 
évalue les différentes expressions 83 ... ӘУ et ramène la 
valeur de la dernière évaluation aN. IF permet de construlre 
une structure de contrôle de type 

бі 81 alors 82 sinon 83 ... Өй. 
ex: ?(IFT125251 ` | 

? CIF NIL. 1 23)+>3 _ 
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CCOND 21 ... М) - FSUBR - 

| Е est l'instruction conditionnel le la plus générale. Les 
différents arguments 71 ... IN sont des listes, appelées 
clauses, qui ont la structure suivante 

Ce 81 ... 8N) | 
COND va sélecter une seule de ces clauses : celle dont 
l'évaluation de son ler élément e est différente de NIL (est 
vrate).COND évalue alors les différentes expressions 81 ... 8N 
et ramène la valeur de la dernière évaluation sÑ. | 
51 la clause sélectée n'a qu'un élément с, COND ramène la 
valeur de l'évaluation de c (c'est-à-dire la valeur qui a 
déclenché la sélection de cette clause).COND permet de | 
construire des structures de contróle de type | 
si ... alors ... sinon si ... alors ... 
Si aucune clause n'est sé lectée ,COND ramène NIL. 
ех: ? (COND (NIL 1 2) | С 
(T 345) 5 


CCOND | 
CCZEROP X) 'ZERO) 
CCODDP X) 'IMPAIR) 
CCEVENP X) 'PAIR) 
C'NOND) 
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(SELECT в 11... 1N LF) - FSUBR - 


comme pour la fonction COND, SELECT va.sélecter une 
des clauses 71... 11. Le sélecteur de ces clauses est 
la valeur de l'évaluation de в, la sélection s'effectue 
par comparaison (au moyen du prédi сат EQUAL ) du sélecteur 
avec la valeur de l'évaluation du ler élément de chacune 
des clauses 11 ... LN. Dès qu'une clause est sélectée,SELECT 
évalue le reste de la clause et ramène la valeur de la 
dernière évaluation, i.e. CEPROGN. (CDR clause) | 
Si aucune des clauses 21 ... LN n'est sélectée, la dernière 
clause LF est évaluée ; SELECTraméne la valeur de 
. CEPROGN ZF). SELECT permet donc de construire des 
aiguillages. 
ex : ? CSELECT 10. 


| (12 'BOF). 
Coss . CCADD1 9) OUI) ` 
C'NOND) ` 
+ OUI. 
2 (SELECT 11 
(12 'BOF) 
CCADD1. 9) "OUI ) 
C'NOND) 
+ NON ` 
A B C D K L M NO Р О R S T 
"| S ик дек С ИШЕ S DEE 
17 
16 
1з 


| | 


LE 


| 1 
Жер т 


ығы мы Ww — а ° ә ж. © 


үр 
= UI жа EN 
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CSELECTQ 8 21... ZN ZF) - FSUBR - 
comme pour la fonction COND, SELECTQ va sélecter une 
des clauses 71 ... LN. Le sélecteur de ces clauses est 
la valeur de l'évaluation de в, la sélection s'effectue 


par comparaison du sélecteur avec : 


- le CAR (non évalué) de la clause si ce CAR 


est atomique (en utilisant le prédicat EQ) ; 


- les différents atomes du CAR (non évalué) de 


cette clause (en utilisant la fonction МЕМО). 


Dés qu'une clause est sélectée, SELECTQ évalue le reste 
de la clause et ramène la valeur de la dernière évaluation 
(i.e. CEPROGN CCDR clause))). 


Si aucune des clauses 11 ... IN n'est sélectée, SELECTQ ` 
évalue automatiquement la dernière clause ZF et ramène 
la valeur du CEPROGN ZF). ` 


SELECTQ permet de faire des aigulllages sur valeurs 
constantes. | 
ex : ? (SELECTQ ‘ROUGE 
ü CVERT 'ESPOIRD 
CCBLEU ROUGE JAUNE) "ОКУ 
C'NOND) 
+ OK 
? CSELECTQ 'BLANC 
CVERT 'ESPOIR) 
CCBLEU ROUGE JAUNE) 'OK) 
C'NOND2 
+ NON 
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(WHILE в 81... 8N) - FSUBR - 
tant que la valeur de l'évaluation de 8 est différente de NIL, 
WHILE va évaluer les différentes expressions 81... SN. 
WHILE ramène toujours NIL (la dernière évaluation de в). 11 


permet de construire des boucles conditionnelles d'une maniére 


fort commode. 
ех: ? (SETQ L (A B C DD + CA B C D) 
"a (WHILE L (PRINT (NEXTL L))) A B C D + NIL 


= (WTIL в 81 ... SN) - FSUBR - 
m ` tant que la valeur de l'évaluation de в est égale à NIL, UNTIL 

va évaluer les différentes expressions s1 ... sN. UNTIL ramène 

_ la valeur de l'évaluation de S qui a fait arrêter la boucle. A 
la valeur ramenée près, UNTIL est équivalent à 

(WHILE (NOT s) 51 ... SN) 

ex: 2? (5ЕТ001 (A B 2 C D)) + CA B 2 C D) 

7? (UNTIL (NUMBP CCAR 12) CPRINI (МЕХТІ L))) AB + 2 


(REPEAT в 81... 8N) - FSUBR - 
évalue в. Cette valeur doit être un nombre n. REPEAT évalue 
alors n fois les différentes expressions s1 ... sN. Si l'éva- 
luation de n n'est pas un nombre strictement positif, la boucle 
n'est pas exécutée et REPEAT raméne NIL, sinon REPEAT ramàne la 
dernière évaluation de ei, 
ех:  ? (REPEAT 10 (PRINT їх) X X x x X X X x X X > X 
8 ? (REPEAT 0 CPRINI '*)) + NIL 
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2.5.2 Les fonctlons d'échappement 


est la fonction de contrôle la plus puissante des systèmes 
VLISPs. a est un atom littéral qui devient le nom d'une 
fonction d'échappement, puis les différentes expressions 
sont évaluées en séquence. Si au cours de ces évaluations, 
une forme de type (a sel ... seN) est rencontrée, les | 
différentes expressions sel ... seN sont évaluées et ESCAPE 
ramène la valeur de la dernière évaluation (i.e. celle de 
8eN). Si une telle forme n'est pas rencontrée, ESCAPE 
ramène Іа valeur de l'évaluation de ap, 
ex : ? (ESCAPE EXIT 
B (МАРС '(A B 2 C) 
'CLAMBDA OO ы ў 
| (AND (NUMBP X) CEXIT 'OU1)))) 

= 'NON)) | | 

+ OUI 


CLESCAPE 81... 8N) - FSUBR - 


évalue les différentes expressions 81 ... ER en séquence 
et ramène la valeur de l'évaluation de ap, De plus LESCAPE 
falt sortir de la dernière A-expression connue (fonction 


utilisateur ou A-expression explicite), avec pour valeur 
la valeur du LESCAPE. 


ex : ? (МАРС '(A B 2 3 C) 
'CLAMBDA CO 


САМО CNUMBP X) CLESCAPE "0,1222 
* OUI 
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t d XE : 
W = mn ` ч dei 


2.3.3 Les fonctions de contrôle de type PROG 


Ce type de structure de contrôle permet à l'usager conservateur d'écrire 


des séquences de LISP sans structure, vettu nocturne partagée avec certains 
autres langages. | | 

On peut se brancher à des étiquettes (fonction со et GOTO) et sortir d'un 
corps de PROG comme en FORTRAN (la fonction éternelle :RETURN ). 

Ce type de structure de contrôle a été conservé dans un souci de 
compatibilité avec les autres systèmes LISPs. Les fonctions d'échappement 
des systémes VLISPs étant à la fois plus puissantes et plus rapides à 
l'interprétation. m 


1 est une liste d'atores qui font office de variables locales 
a l'intérieur du PROG. Elles sont liées à la valeur NIL à 
l'entrée du PROG et restaurées à leur ancienne valeur au ` 
retour du PROG. Cette protection des variables locales ne 
porte que sur leurs C-val. Cette liste de variables locales 
peut être vide (égale à NIL) mais ne peut pas être omise. 
81 ...8N est une liste de formes qui sont évaluées en séquence. 
Si dans cette liste se trouvent des atomes, ils sont considérés 
comme des étiquettes et ne sont donc pas évalués. | 
La valeur d'un PROG, s'il n'est pas interrompu par un RETURN, 
est la valeur de l'évaluation de 3N. 
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(GO a)  - FSUBR - 
a doit être le nom d'une étiquette existante ди PROG. 
L'évaluation de la forme (GO a) fait reprendre l'évaluation 
à la forme qui suit l'étiquette a. Si a n'est pas une étiquette 
connue ou si la forme (60 a) apparaît à l'extérieur d'un PROG, 
le message d'erreur suivant apparaît : СОС 
** LABEL ERROR : а 


(GOTO 8) - SUBR - 
identique à GO mais l'argument s est évalué et doit ramener un 
atome en valeur. | | 


(RETURN 8) - SUBR - 
| sort du PROG courant. La valeur du PROG est celle de l'évalua- 
. tion de 8. Si une forme CRETURN 8) apparaît en dehors d'un i 
PROG, le message d'erreur sulvant apparaît : ` Е 
хх RETURN ERROR. 


А ES 
4 - 


OQ 
248 
(0€ 
(“М 


„4 мо - a u e + ә * 
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2.4. LES FONCT IONNELLES 


Toutes sont de type SUBR et utilisent des fonctions fn en argument. Ces 
fonctions peuvent être des fonctions standard SUBR, utilisateurs EXPR 
ou des A-expressions à 1 argument. | 


(SOME 7 fn) - SUBR - | 
applique successsivement la fonction fn à tous les éléments 
de la liste Z jusqu'à ce qu'une de ces applications donne une 
valeur différente de NIL qui est ramenée en valeur. 
ex :.? (SOME 'CA B 2 C) 'NUMBP) + 2 
? (SOME 'CA B 2 С) 'LISTP) + NIL 


CEVERY 1 fn) - SUBR - 
applique successivement la fonction fn à tous les éléments de 
la liste 7. Si l'une de ces applications donne une valeur NIL, 
EVERY ramène NIL sinon EVERY ramène la valeur de la dernière 
application. 
ex : ? (EVERY '(A B 3 C) АТОМ) + C 
`` 2 (EVERY "CA B 3 C) 'LITATOM) + NIL 


CORF 1 №1... fn) - SUBR - 
applique les différentes fonctions fn1 ... fnN à l'argument Z 
jusqu'à ce qu'une de ces applications donne une valeur di fférente 
de NIL qui est ramenóe en valeur, sinon ORF ramène NIL. 
ex : ? (ORF 3 'LITATOM 'NUMBP 'LISTP) + 3 
? (ORF 3 'LITATOM 'LISTP) + NIL 


CANDF 7 fn1 ... fnN) - SUBR - 
applique les différentes fonctions fn1 ... -— l'argument 7. 
Si l'une de ces applications donne une valeur égale à NIL , ANDF 
ramène NIL sinon ANDF ramène la valeur de la derni ёге application, 
c'est à dire celle de CfnN 1). 
ex : ? CANDF 3 'GZP 'ODDP) + 3 
| ? CANDF ік 'GZP 'ODDP) + NIL 
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Les fonctions d'application. 


Syntaxe : СМАР ... Z fn) 


Elles permettent d'appliquer la fonction fn sur certains sous-ensembles de 


la liste 7. 

applique la fonction fn sur : et ramène en valeur : 
Z puis sur | les CARs | Z puis sur 
ses CDRs successi fs| toutes ses 


successi fs | de 7 Sous-structures 


la liste des valeurs de toutes 
les applications 


la liste des valeurs différentes 
de NIL de toutes les applications 


Les fonctions de type MAPS (elles n'existent qu'en VLISP) permettent 
d'explorer des structures en arbre. Elles opérent en DEEP-FIRST sur les 
CARs. 
ех :-? СМАРС "СА CB C) D) 'PRIN1) A CB C) D + NIL 
? CMAPST "(СА CB 2 (520 + С) 'NUMBP) + (2 3 4) 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 35 / 106 


~ 32 = 


2.5 - LES FONCTIONS DE RECHERCHE 


2.5.1 - Recherches sur listes 


(CAR s) - SUBR - 
si 8 est un atome ramène sa C-valeur 
si 8 est une liste ramène son premier élément 


te CAR d'un nombre. ou d'une chaîne est indéterminé. | 
ex : ? (CAR 'СА В COD + A 


(CDR 8) - SUBR - 
si s est un atome ramène sa P-liste | | | 
si 8 est une liste ramène cette liste sans son premier élément 
. le CDR d'un nombre ou d'une chaîne est indérerminé. 


ivan 


Е ex : 1 ? (CDR СА В С)) > (B C) 


суы ei - SUBR - ` 
` les. 12 Seege de CAR ou de CDR imbriqués sont BE 
disponibles. | 
CCADR s) өсі équivalent à CCAR (CDR 822 
CCDDAR s) est équivalent à (CDR (СОР CCAR 82)) ` 


СМЕМ) a 1) - SUBR - 
ramène NIL si l'atome a n'est pas un élément de la liste 2 
sinon ramène la partie de Z commençant à l'atome а. Cette 
fonction utilise le prédicat EQ. 
ex : ? (MEMQ 'B 'СА B C DD + (BC D) 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 36 / 106 


= 33 - 


(MEMBER в Z) - SUBR - 
ramène NIL si l'expression 8 n'est pas un élément de la 
liste 7 sinon ramène la partie de 7 commençant à l'expression 
8. Cette fonction est identique à la fonction MEMQ mais 
utilise le prédicat EQUAL. 


ex : ? (MEMBER '(B C) '((A (B C))CB C) D + (CB C) D) 


(NTH n 1) - SUBR - 
ramène la partie de Z commençant à son nième étément. Si 
п<1, NTH ramène la liste 7 en entier. 
ех: ? МІН 3 "CA B C DD + CC DD 


ССМТН и Z)  - SUBR - 
ramène le nième élément de la liste 7. CNTH est équi valent à 
CCAR СМТН n 22) 

ex : ? CCNTH 3 "(АВС 0)) + C. 


CLAST 72 ~ SUBR - | 
ramène la liste ne contenant que le dernier élément de la 
liste 7. MEME _ 
ex : ? CLAST ‘CA B CD + CO | 
MEE (LAST ‘(АВС . 0)) + (С. D) 


HSE 


ккк же НИБ МЕ ИЕ ман 
: ' ' N 


9- 


deia 
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2.5.2 - Recherche de type 


СТҮРЕР 8)  - SUBR - 
si s est un atome littéral ramène l'atome LITATOM 
si в est un nombre ramène l'atome NUMBP 
si в est une chaîne ramène l'atome STRINGP 
si g est une liste ramène l'atome LISTP 
ex : ? СТҮРЕР 'A) + LITATOM 
`` 7 (ТҮРЕР 3) + NUMBP 
? CTYPEP "(А В)) + LISTP 


ә 


СТҮРЕЕМ a) - SUBR - 
si l'atome a possède une définition 
d'EXPR ramène l'atome EXPR 
de FEXPR ramène l'atome FEXPR 
de SUBR ramène l'atome SUBR 
de FSUBR ramène l'atome FSUBR 
de MACIN ramène l'atome MACIN 
de MACOUT ramène l'atome MACOUT 
sinon ramène NIL 
ex : ? CTYPEFN 'TYPEFND + SUBR 
=` 2 CTYPEFN 'COND) + FSUBR 

? CTYPEFN 'QUOID + NIL 
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2.6 - FONCTIONS DE CREATION DE LISTES 


(CONS 81 82)  - SUBR - 
construit une liste dont le premier élément est 81 et le 
reste de la liste 82. Si 82 est un atome CONS crée la paire 
pointée (81. 82). 
ex : ? (CONS "А "CB С)) + CA B C) 
? (CONS 'X 'Y) + CX . YO 
? (CONS '2) + CZ) 


(LIST 81 ... sN) - NSUBR - 
raméne la liste des valeurs des différentes expressions 
8l ... sN. 
ex : ? (LIST "А 'B "СС D) CADDI 32) + (AB (C D) t) ` 


(LINEAR 81... 8N)  -NSUBR - 
ramène la liste de tous les atomes des différentes expressions 
81... SN, | | 
ех : ? (LINEAR "А "(В СС . DD 'CC(3))) + CA B C D 3) 


(SUBST 81 82 1)  - SUBR - 
ramène une copie de la liste Z en substituant à l'expression 
s2 l'expression s1 à chacune de ses occurences. Si 81 et 82 
sont nulles, CSUBST NIL NIL Z) ramène une copie de toute la 
liste 7. 
ex : ? (SUBST '(X Y Z) "(АВ)" CCA B) С CD (A B)))) 


+ ((X Y 2) С (D (X Y 22D 
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COBLIST а)  - SUBR - | 
ramène la (longue) liste de tous les atomes littéraux 
présents du système à partir de l'atome a. Le premier 


atome systéme est NIL, le dernier STOP. 


(REVERSE 7) ` - SUBR - 
ramène une copie inversée du top-level de 7. 
ex : ? (REVERSE "СА (В C) D Е?) + CE D CB С) A) 


(АРРЕМО 21 22) - SUBR - 
ramène la concaténation d'une copie du top-level de 71 
à 12. Si 12 n'est pas donné, CAPPEND 71) ramène une 
copie du top-level de Z1. j 
ex : ? CAPPEND "CA B) "СС DD + САВ С D) 


CAPPENDI 21 81 ... sN) - NSUBR - 
ramène la concaténation d'une copie du top-leve! de 21 
à la liste Lei ... sN). APPENDI est ави а 
CAPPEND 71 CLIST 81... sN)) 
ex : ? САРРЕМО1 "СА В) 'C '0) + (А B C D 


À 8 CD k F СН K L M NO P Q R 5 1 
TIT 


62 L-——--———————- quM rte А 
1 | 
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2.7 LES FONCTIONS DE MODIFICATION 


Ces fonctions doivent être utilisées conformément au mode d'emploi, pour 
éviter de placer le système dans un état de confusion dramatique (car elles 
modi fient physiquement les structures VLISPs). 


il est interdit de modifier : 


- les constantes symboliques (NIL T LAMBDA ...) et en général 
il est recommandé de ne pas modifier les atomes systèmes ; 
- les nombres ; 


= les chaînes de caractères. 


_ Pour ces. fonctions l'argument obj représente un atome littéral ou une liste. 
Modi fier le CAR d'un atome revient à changer sa C-valeur, modi fler son CDR, 
sa P- liste. Б | 


(ВР АСА obj 8) - SUBR - 


remplace le CAR de obj par в. RPLACA ramène obj en valeur. 


.CRPLACD obj 8) - SUBR - 


remplace le CDR de obj par s. RPLACD raméne obj en valeur. 
(SET  obj1 ai ... objN 8N)  - NSUBR - 
remplace tous les CARs des objs par leur в correspondants. 


SET ramène sW en valeur. 


identique à SET mais SETQ n'évalue par les différents objs. 
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(5ЕТ00 obj1 81 ... objN 8N) - FSUBR - 


identique à SET mais SETQQ n'évalue ni les différents opjs, 
ni les différents в. Е | 


CSYNONYM a1 a2)  - SUBR - 
donne à l'atome littéral a1 les mêmes indicateurs spéciaux 
(SUBR FSUBR ...) que l'atome a2. SYNONYM permet de changer le 
nom d'une fonction standard,SYNONYM ramène al en valeur. ` 
ex : ? (SYNONYM 'KONSS 'CONS) + KONSS 
? (KONSS 1 2) + (1 . 2) 
э (CONS 12 + (1 . 2 


(NEXTL a)  - FSUBR - 
а (qui n'est pas évalué) est un atome littéral dont la valeur 
.(C-val) doit être une liste. NEXTL ramène le CAR de cette liste ' 


en valeur et place dans a le CDR de son ancienne valeur. | 
ex : ? CSETQ А '(X Y Z)) + (X Y 2 BELL M 
? CNEXTL A) + X | 
? A + (Y 2) 
(NEWL a 8) - FSUBR - 


NEWL place en tóte de cette liste la valeur de l'évaluation 
de l'expression s et ramène en valeur la liste ainsi formée, · 
i.e. la nouvelle valeur de а. Cette fonction est équivalente t 
à (SETQ a (CONS в a)) i 
L'utilisation conjuguée des fonctions NEXTL et NEWL permet de 
construire des piles-listes. 
ex : ? (5ЕТО А ‘СХ Y 2D + CX Y Z) 
7? (NEWL A 'W) > (W X Y 2 

? A + (W X Y Z) 
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Шш ` = => # 52 
a Sam 


CINCR 42 - FSUBR - 
m l'atome littéral а (qui n'est pas évalué) doit avoir un nombre 
comme valeur. INCR incrémente de 1 la valeur de a et la 
raméne en valeur. 
ЕС. : 2 (SETQ X 2) + 2 
? CINCR X) + 3 


CDECR а) - FSUBR - 
identique à INCR mais décrémente de 1 la valeur numérique.de 


l'atome littéral a. INCR ramène la nouvelle valeur de a en 
valeur. | | 
| ex : ? CSETQ X 10) + 19 
? (DECR X) + 9 
? X > 9 


` (NCONC 71 12) - SUBR - | | = = 
| relle physiquement les listes 21 et 22 (l.e. place dans le CDR ` 
du dernier élément de la liste Z1 la liste 22). NCONC ramène 
la nouvelle liste 71 en valeur. 
ex : ? (NCONC 'CA B C) (ОЕ F)) + (A B C D E F) 


СМСОМС1 7 81 ... sN) - NSUBR - ` | 
équi valent à СМСОМС 7 CLIST 81 ... 8N)). Cette fonction est 


trés utile pour placer une sul te d'atomes à la fln d'une autre 


liste. | 
ex : (МСОМС1 "CA B C) 'D 'E) + (A B C D ED ы. 
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(SMASH 1) - SUBR - 


enléve physiquement le premier élément de la liste Z en conser- 
vant la méme adresse physique pour la liste Z. II y a donc re- 
copie du deuxième élément de Z dans le premier éfément puls 
destruction du deuxième élément. SMASH ramène la nouvelle liste 
¿ en valeur. | 
ex : ? CSETQ L1 "АВ C) L2 L1) + CA B C) 

2 (SMASH 12) ^ CB C) 

? L1 + CB C) 


(ATTACH 2 8) - SUBR - 
| ajoute physiquement en tête de la liste Z l'élément в en 
conservant la méme adresse physique pour la liste Z. 11 y à 
donc re-copie du premier élément de Z dans un doublet libre 
puis modification de ce premier élément par s. ATTACH raméne 
la nouvelle liste Z en valeur. 
ex : ? CSETQ L1 'CY Z) L2 11) + (Y 2) 
Ф (ATTACH 'Х L2 + (X Y Z) 
? L1 + CX Y Z2 | 


A B C О E F С Н | K 


t M NO Р О А S T 


bo à 
E В Seege? 


в |- no 
i - 7.06 Së ° * o 
Moses | £ Pu * 4% — 


es kb —— -. nd 


—+- ENS = us m nu 
КИИ | БИЕЛЕР n ENS 


m ы w ы w © ч = © 
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2.8 FONCTIONS SUR LES A-LISTES 


En VLISP-10 comme dans tous les VLISPs, les A-listes (listes d'Association) 
sont des listes de listes qui ont la structure suivante : 

CCvarl . vall)(var2 . val2) ... CvarN . val) 
Chaque élément est une liste dont le CAR est la variable, le CDR la valeur. 


Pour toutes ces fonctions l'argument al doit étre une A-liste. 


2.8.1 Fonctions de recherche sur A-lîste 


CASSQ a al) - SUBR - 


ramène l'élément de la A-liste aZ dont le CAR est égal à 
l'atome a, sinon ramène NIL. Cette fonction utilise le 
prédicat EQ. 


ех: ? СА550 'B 'CCAXB . 1)CC D Е))) + CR . 1) 


` CCASSQ а al) - SUBR - _ " | ws 
identique à ASSQ mais гатӛпе, s'il existe, le CDR de l'élément 
recherché. mE | | 


ех: ? (САЅ50 "С 'CCAXB . 1)CC D E 2D + (D E) 


i 


(ASSOC s al) - SUBR - 


ramène l'élément de la A-liste aZ dont le CAR est égal à 
l'expression s (atome ou liste), sinon ramène NIL. Cette 
fonction utilise le prédicat EQUAL. | | 
ex : ? CASSOC '(X Y) 'CCADCOX Y) 2))) + CCX Y) 2) 


ССАЅ50С s a2) - SUBR - 
identique à ASSOC mais ramène, s'il existe, le CDR de ы. 


l'élément recherché. 
ex : ? CCASSOC 'CX Y) 'CCADCCX Y) 2))) + CZ) 
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2.8.2 Fonction de création de A-liste 


CPAIRLIS 71 22 al) - SUBR - 
11 doit être une liste de variables. 
12 doit être une liste de valeur. 
PAIRLIS ramène une nouvelle A-liste formée à partir de la 
liste des variables et de la liste des valeurs. 
Si le troisième argument aZ. est donné 1! est ajouté en 
fin de la A-liste ainsi formée. 
ex : ? CPAIRLIS 'CA B C) '(1 2 35) 
-(A.1«€B.2Xc.5)5 mE 
? CPAIRLIS "СХ Y Z) 'C5 C62) "ССА . 1)CB . 2D) 
+ CCX .5XY 6)CZ)CA . 1268 . 2 == 


A B C D E F СН K L M М O Р О R S Т 
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2.9 | FONCTIONS SUR LES P-LISTES 


En VLISP-10, comme dans tous les autres VLISPs, les P-listes (listes de 
Propriétés) sont des listes qui ont la structure suivante : 

Cindicl vall indie2 val2 ... indieN valN) 
A chaque indicateur est associée une valeur. Les recherches sur P-liste 


s'effectuent donc deux éléments par deux éléments. 


Les arguments de ces fonctions sont : 
pl - si pl est un atome littéral, la P-liste utilisée sera celle de 
cet atome (son CDR), 
- si pl est une liste, la P-liste utilisée sera cette liste elle-même, 
- si pi est un nombre ou une chaîne, ces fonctions risquent de donner 
d'étranges résultats et de dangereuses visions ; 
ind l'indicateur est un atom de n'importe quel type car la recherche des 
indicateurs utilise le prédicat EQ ; 


pval peut être n'importe quelle expression. 


2.9.1 Fonction de recherche sur P-liste 


(СЕТ p? ind) - SUBR - 
ramène la valeur associée à l'indicateur tnd dans la P-liste 
pi. Si l'indicateur n'existe pas GET ramène NIL. 
Attention : on ne peut discerner !a valeur égale à NIL d'un 
Indicateur avec l'absence de cet indicateur. : 
ех: ? (GET 'CI1 A I2 B) '12) + B | à 


d 
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2.9.2 Fonctions de création de P-liste 


CADDPROP pi pval ind) - SUBR ~ 
rajoute en téte de la P-liste pZ l'indicateur Znd et sa 
valeur associée pval. ADDPROP ramène рі en valeur. 
ex : ? CADDPROP 'CI1 A I2 В) 'C '11) + CI1 СПА I2 B) 


(PUT pi pval ind) - SUBR - 
si l'indicateur ind existe déjà sur la P-liste pZ alors sa 
nouvelle valeur est рта? ; sinon l'indicateur ind et sa 
valeur assoclée рта? sont ajoutés en tête de рі (d'une 


`. 


manière identique à tà fonction ADDPROP).PUT ramène pi en 
valeur. | 


CREMPROP pi ind)  - SUBR - 


enlève de la P-liste рі l'indicateur ind s'il existe ainsi 
que sa valeur associée. REMPROP raméne pi en valeur. 


L'utilisation conjuguée des fonctions REMPROP et ADDPROP 
permet d'utiliser les P-listes comme des piles de propriétés- 
valeurs. 
өх: ? (PUT 'CIL A I2 В) 'C '11) + CI1 C I2 B) 

? CREMPROP 'CI1A I2 В) ‘I1) + CI2 BD 
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2.10 LES FONCTIONS DE DEFINITION 


Elles permettent de définir des fonctions en modifiant les P-listes des 


atomes d'une manière plus aisée qu'en utllisant les fonctions sur P-liste. 


(DE а 1 81 ... 8N) - FSUBR ~ 
définit une fonction de type EXPR avec : 
- a (atome littéral), comme nom de la fonction ; 
- 1 (atome 1ittéral ou liste), comme argument de la fonction : 
- et 81 ... 8N comme corps de la fonction. 
DE ramène a en valeur et est équivalent à 
(PUT "а 'CLAMBDA 7 s1 ... sN) EXPR) 


(DF а 2 81 ... 3N) - FSUBR - 
équivalent à DE, mais la fonction ainsi définie est du type 


FEXPR. DF ramène a en valeur et est équivalent à 
CPUT 'a 'CLAMBDA Z 81 ... sN) FEXPR) 


équivalent à DE, mais la fonction ainsi définie est une 
macro- fonction d'entrée. DMI ramène a en valeur et est 


équivalent à : 
(PUT ‘a 'CLAMBDA 7 s1 ... 3N) MACIN) 


CDMO а L 81 e eg sN) иш FSUBR = | 
équivalent а DE, mais la fonction ainsi définie est une macro- 
fonction de sortie. DMO ramène a en Valeur et est équi valent 

š 


a 


(PUT ‘a *CLAMBDA 7 81... 8N) MACOUTO 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 49 / 106 


- 46 - 


2.11 LES FONCTIONS SUR PILE 


L'utilisateur a accés à une pile, de (200), mots par défaut, au moyen des 


8 
fonctions suivantes : 


(PUSH 81 ... sN) - NSUBR - 


empile les valeurs des différentes expressions s1 ... 8N et 


ramène sN en valeur. 


CPOP) - SUBR - 


dépi le et ramène le sommet de pile en valeur. 


Les erreurs suivantes apparaissent en cas de débordement de pile : 


ХХ USER STACK OVERFLOW. il y a eu trop de PUSH ; 
хх USER STACK UNDERFLOM. i! y a eu trop de POP. 
ex : ? (PUSH 'А 2) + 2 
9 (POP) + 2 
? (POP) + A 
? CPOP) 
хх USER STACK UNDERFLOW. 
? (WHILE T CPUSH Т)) 
ХХ USER STACK OVERFLOW 
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2.12 LES FONCTIONS NUMERIQUES 


2.12.1 Les prédi cats numériques 


lls servent à comparer des nombres. Tous ramènent NIL si le test 


effectué echoue, ou si 1 ou plusieurs arguments ne sont pas 
numériques. 


| et ramène sÍ le 
fonction teste si test réussi 


(NUMBP n) n est un nombre n 
(ZEROP м) _ ono ` n 
СМЕВОР n) né 0 n 
CLEZP n) ER: n 
CLZP n) п < 0 n 
(GEZP n) mn > 0 n 
CGZP n) nz 0 n 
СЕУЕМР n) n est pair ` n 
СОР n) | . | nest impair n 
CDIVP n1 n2) | | n1 est divisible par n2 nl 
(LT nl ... nN-1 nN)| n1<.,.<nN-1<nN ` | nN-1 
CLE М1... nN-1 nN)| n1<..,<nN-1<nN nN-1 
GT n1 ... nN-1 n| n1»...»nN-1»nN nN-1 
(GE nl ... nN-1 n| n1>...>nN-1>nN nli-1 
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2.12.2 Fonctions à 1 argument (SUBR) 


Si l'argument n'est pas du type voulu, ces fonctions 


raménent O. 


| type de | 
fonction l'argument 


ramène le nombre 


liste | d'éléments de la liste Z 
atome | de caractères du P-name dea 
caractére = correspondant au code ASCII du 
[| |.ecaractére c "IM 

CADD1 n) nomb re LU ne? | 

(5081 n) nombre |. |. mn-1 | 
nombre: |. -n (complément arithmétique) 
nombre ` > |n] (valeur absolue de л) 
nombre ` ~ m (complément logique) 
nombre | résultant de l'échange des 18 bits 

. dé droite avec les 18 bits de 


gauche de n 
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2.12.5 Fonctions à М arguments (NSUBR) 


+ 


Pour toutes ces fonctions les arguments non numériques 


sont ignorés. 


fonction 


CPLUS n1 ... nN) 
CDIFFER n1 ... nN) 
(TIMES м1... nN) 
(QUO n1 ... nN) 
CREM n1 ... nN) 


CMIN ni e ee nN) 
CMAX ni See nN) 


ramène 


nl + n2 +... + nN 
ni = né = ee — NN 
n1 * n2 * ... * nN 
nl / n? / ... / nN 


n1 REM n2 REM ... REM nN (REM est 
l'opérateur binaire : reste de la 
division entière 

le plus petit n 


le plus grand т 


2.12.4 La fonction spéciale BOOLE 


(BOOLE numéro nl ... nN)  - NSUBR - 


applique l'opérateur binalre booléen sélecté par 


numéro sur les différents arguments numériques 


n1... nN. BOOLE ramène 16 nombre résultant du 


calcul 


Coperat 
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Table des opérateurs booléens : 


numéro opérateur 


n1 
V n2 
V n2 
V an2 
V mä 
À n2 
À м2 
À n2 
À unà 
nl ХОК n2 
n1 ЕОМ n2 
ni LOGSHIFT n2 
^1 ROTSHIFT n2 
ni ARSHIFT n2 


intersection 


disjonction logique 


équi vatence logique 


décalage logique 
décalage circulaire 


décalage arithmétique 


Pour les décalages n2 est le nombre de pas 


51 n2 > 0 les décalages s'effectuent par la gauche, 


si n2 < 0 les décalages s'effectuent par la droite. 
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2.15 FONCTIONS SUR LES P-NAMES DES ATOMES 


Rappellons que 
- le P-name d'un atome littéral est son nom externe 
- le P-name d'un nombre est sa représentation dans la base 
de conversion courante 
- le P-name d'une chaîne est la suite de caractères qui 


constituent cette chaîne. 


CGENSYM oi ... aN)  -NSUBR- 

- sÏ aucun argument n'est donné, GENSYM ramène à chaque appel 
un nouvel atome littéral de type Gn dans lequel n est un 
nombre incrémenté à chaque appel. Pour l'initiatisation de 
ce compteur voir la fonction 2.15.9. 

- si des arguments sont donnés, GENSYM ramène un nouvel atome 
dont le P-name est |а concaténation de tous les P-name des 
arguments atomiques jusqu'à concurence de. 18 caractères. 
ex : ? CGENSYM 'LAB CADDI 3) ':) + LABH: 

Ф (GENSYM) + G101 ` E 
? CGENSYM) + G102 


CEXPLODE oi ... aN)  -NSUBR- | 
raméne la liste concaténée de tous les caractéres des P-names 
des arguments atomiques. | | 
ех: ? (EXPLODE "МЫМ -237 'HAA) + (NUM - 2 3 7H A A) 


CPLENGTH a)  -SUBR- 


ramène le nombre de caractères du P-name de a. (voir 2.12.2) 
ex : ? CPLENGTH -128) + 4 
? CPLENGTH ATOM) + 4 
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(ASCII n) - SUBR - 


ramène le caractère de code ASCII n (modulo 256) 
ex: 2 (ASCII 67) — C 


(CASCII c) ~ SUBR - 


ramène le code ASCII du caractère 2. (voir 2.12.2) 
ex : ? (CASCII 'C) 67 


A 8 C D E F С H K L M М О PQ R © Т 


ee — —- .— — 


| due еле —— — —— —————À—— - Pet KZ A 
4 Ja 
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2.14 FONCTIONS D'ENTREE/SORTIE 


2.14.1 Les fichiers 


Dans l'état actuel du système, VLISP-10 peut gérer 2 fichiers : un fichier 


d'entróe et un fichier de sortie. Le systéme multifichier est en cours de 
mise au point. 


La description d'un fZehze» est une liste de la forme : 
( device ( filename . extension ) ( pj . pg ) ) 
ex: С DK C PROG . VI 2 C 767 . 542 ) ) 
Les valeurs par défaut de ces paramètres sont : 


device = TTY 


filename.extension = en entrée LISPIN . VLI (VLI est l'extension 


Standard des fichiers source en 
VLISP-10) 
en sortie LISPOU . LST 


рј.р9 numéro de projet-programmeur de . . 


l'utilisateur 


CINPUT féchier) - SUBR - 
cette fonction permet de sélecter le fichier d'entrée (après 
avoir fermé le fichier d'entrée précédent). À l'ouverture d'un 
fichier TTY, le message --- ALLO ? --- est imprimé sur cette 


TTY, et un ? est imprimé avant toute lecture de ligne. 


COUTPUT fichier) - SUBR - 


sélecte le fichier de sortie (aprés avoir fermé le fi chien 


de sortie précédent). А 


Ces deux fonctions raménent en valeur les caractéristiques du device ouvert 
(la valeur du DEVCHR UUO). Pour ces deux fonctions, si aucun argument n'est 
donné, les fichiers standard sont ouverts. Ces fichiers standard sont en 
entrée et en sortie CTTY). 
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2.14.2 Erreurs pendant l'exécution des fonctions INPUT OUTPUT 


хх OPEN ERROR (INPUT). 


le device d'entrée est incorrect (Inexistant ou impossible à 


lire). Le fichier d'entrée standard CTTYO est ouvert à sa- 
place. 


XX OPEN ERROR COUTPUT). 


le device de sortie est incorrect (inexistant ou impossible à 


écrire). Le fichier de sortie standard СТТҮ) est ouvert à sa 
place. | 


хх LOOKUP ERROR CINPUT) : n 


KÉ 
CA 
LI 
“. 


- 


erreur à l'ouverture du fichier d'entrée. Le fichier d'entrée 


standard est ouvert à sa place." est le type de l'erreur. 


ENTER ERROR COUTPUT) : n 


` 


erreur à l'ouverture du fichier de sortie. Le fichier de 
sortie standard est ouvert à sa place. n est le type de 
| ‘erreur. E | | NL 


le fichier n'existe pas 
le рј.ра est incorrect 
le fichier est protégé 
erreur, physique de lecture ou d'écriture 


il n'y a plus de place sur le disque COUTPUT). 
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2.14.3 Fonctions d'entrée 


Toutes ces fonctions utilisent le fichier d'entrée sélecté par la fonction 


INPUT. 

(READ) - SUBR - 
lit et ramène en valeur la S-expression suivante (atome ou 
liste) du fichier d'entrée. 

CREADCHO - SUBR - 
lit et ramène en valeur le caractère suivant du fichier 
d'entrée. 

CPEEKCH) - SUBR - 

| ramène en valeur le caractère suivant du fichier d'entrée, 
mais sans le lire : si CREADCH) suit, le même caractère 
sera ramené. | 

CTEREAD) - SUBR - 
saute à l'enregistrement suivant du fichier d'entrée (une 
ligne sur TTY, une carte perforée, ...). 

CREADSTR) - SUBR - | 
ramène l'enregistrement suivant sous la forme d'une chaîne 
de caractéres (voir 3). SNOBOL 4 n'est pas le cousin de 
VLISP-10. 

(EOF) - SUBR - 


cette fonction est lancée automatiquement par le systéme à 
la fin du fichier d'entrée. Elle peut également être lancée et 
redéfinie par l'utilisateur. 
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2.14.4 Fonctions de sortie 


Toutes écrivent sur le fichier de sortie sélecté par la fonction OUTPUT, 
en utilisant un buffer accessible à l'utilisateur. 


(PRINT 81 ... 8N) - NSUBR - 
édite dans le buffer de sortie les S-expressions 81 ... 8N 
puis imprime ce buffer suivi des caractéres Carriage 


Return/Line Feed (saut de ligne). PRINT ramène sY en valeur. 


(PRINI 81... 8N) - NSUBR - | 
édite dans le buffer de sortie les S-expressions 81 ... 8N 


sans imprimer le buffer. PRINI ramène 8N en valeur. 


CTERPRI n) - SUBR - 
imprime le buffer de sortie puis saute n lignes. Si n = 0 


la ligne suivante sera surimprimée. Si n n'est pas un nombre 


^ 


il est pris à 1. TERPRI ramène n en valeur. 


(PAGE) - SUBR - 


Imprime le buffer de sortie puis saute une page.PAGE ramène NIL. 


CPRINC e n) - SUBR - 
édite n fois le caractère e. Si n n'est pas un nombre e n'est 


édité qu'une seule fois.PRINC ramène o en valeur. 


CSPACES n) - SUBR - 


édite п espaces. Si n n'est pas un nombre un seul espace sera 
édité. SPACES ramène n en valeur. 
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СТТАВ n) ~ SUBR - 


mets le pointeur du buffer de sortle à la position n . TTAB 
ramène и en valeur. 


Remarque : Si au cours d'une édition le buffer de sortie est plein il 


est automatiquement imprimé, suivi d'un RC/LF et l'édition se 
poursuit sur la ligne suivante. 


L'utilisateur a en outre accès aux Indicateurs des fonctions de sortie et 
au buffer de sortie au moyen des fonctions . ШЕ 
- sur le Registre Général (2.15.1) 
- sur le buffer de sortie (2.15.4) 


ABC D E F С H K L M NO P О R 5 Т 


http://www.artinfo-musinfo.org МИР 10, mars 1976, page 61 / 106 


- 58 - 


2.14.5 Les macro-fonctions d'entrée/sortie 


Si au cours d'une lecture la fonction READ lit une liste dont le CAR, atomique, 
contient sur sa P-liste l'indicateur MACIN, la fonction associée à cet indica- 
teur est lancée avec comme argument le CDR de la liste qui a été lue : la 
valeur retournée par cette fonction remplace !a liste lue. Les macro-fonctions 
d'entrée sont définies au moyen de la fonction DMI. L'action des macro- 
fonctions d'entrée est validée par le bit 16 du R.G. (volr 2.15.1). 


De тте si au cours d'une édition les fonctions PRINT ou PRINI dol vent 
éditer une liste dont le CAR, atomique, contient sur sa P-liste l'indicateur 
MACOUT, la fonction associée à cet indicateur est lancée avec pour argument: 
le CDR de la liste qui devait être éditée. Les macro-fonctions de sortie 
sont définies au moyen de là fonction DMO. 


L'action des macro-fonctions de sortie est validée par le bit 26 du R.G. 
(voir 2.15.1). | 


ex 1 : si la fonction IF n'était pas standard, on pourrait la 
m macrogénérer de la manière sul vante 
CDMI IF CB THEN . ELSE) 
(LIST 'COND (LIST B THENDCCONS T ELSE))) 
alnsi la liste lue | 
CIF ССТ А B)CSETQ X B)CSETQ X ADCINCR Ү)) 
serait transformée en 
` (COND CCGT A В)СЅЕТО X BD) 


CT CSETQ X ADCINCR Ү222 


ex 2: si la restitution du macro-caractére ', en sortie, 


n'était pas standard on pourrait la définir ainsi 
CDMO QUOTE X CPRINI (QUOTE ') X)) 
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2.15 LES FONCTIONS MAGIQUES STATUS 


Les fonctions STATUS permettent tout ce que vous avez toujours eu envie de 
faire à un système LISP sans jamais pouvoir le faire vralment. D'une 


maniére plus précise, les fonctions STATUS permettent de connaitre, les 
indicateurs PACE 


valeurs des { ; 
variables 


) internes du systéme VLISP- 10. 
Syntaxe : CSTATUS numéro angl ... argN) - NSUBR - 


Le numéro du STATUS permet de sélecter la fonction à exécuter. Dans 
l'état actuel du système 40 numéros sont prévus. Un numéro de STATUS 
Incorrect déclenche une erreur avec Impression du libellé : 

| ** STATUS ERROR : numéro incorrect | 
Les fonctions STATUS sont les seules qui contrólent le type et la valeur 
de tous leurs arguments. | 


{1 existe pour chacune de ces fonctions un mnémonique.. Pour pouvolr les 
utiliser il faut au préalable charger le fichler : | N 
DSK CSTATUS . VLIDN (639 . 3002) О 

ex : СЅЕТВІТ 20 22) 


est équi valent à : 
CSTATUS 1 20 22) 
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2.15.1 Le Registre Général R.G. 


ІІ! existe un registre de 56 bits qui contient la plupart des indicateurs 


du système : le R.G. Ses différents bits ont la signification suivante : 
bit eu si le bit est à 1 
def. 


imprime le résultat du top-level 


imprime les formes à évaluer 


trace tous les appels internes de la fonction APPLY 


0 donne des statistiques à chaque Garbage Collecting 


@ é 6 eege ee @ 0 @ eg 


1 1 

2 0 

5 0 trace tous les appels internes de la fonction EVAL 
4 0 

5 


10 0 tous les enregistrements lus en entrée sont imprimés 


11 1/0 le fichier d'entrée est un fichier TTY. |I y a impression du 
caractère ? avant chaque lecture. Ce bit est positionné par la 
fonction INPUT 


12 O еп entrée un nombre peut commencer par le caractère + 

15 1 өп entrée un nombre peut commencer par le caractère - 

14 1 en entrée le quote caractère / est valide 

15 1 en entrée les macro-caractéres sont traités 

16 1 en entrée les macro-fonctions sont trai tées 

17 1 en entrée les chaînes de caractères sont acceptées 

18 1 en entrée les commentaires sont acceptés 

20 1 |е$ impressions physiques ont lieu à la fin de chaque ligne 
| (et non à la fin du buffer systéme) 

21 1 toutes les éditions commencent par un espace 

22 0 en sortie les nombres positi fs commencent par le caractère + 

23 1 en sortie les nombres négatifs commencent par le caractère - 

24 0 en sortie les caractères spéciaux des P-names sont auotés par / 

25 1 еп sortie on met un espace entre chaque atome 

26 1 en sortie les macro-fonctions sont traitées 

27 1 en sortie le caractère délimiteur de chaîne est restitué 


@ 909 99 959.0999 8999068 


35 0 réalise la fonction QUASAR. Ne l'utilisez jamais! 
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2.15.2 Fonctions sur le К.б. 


(STATUS 0 n) - mnémo : SETRG - 
Si n est un nombre, donne au R.G. cette nouvelle valeur. Се 


status ramène le nombre qui représente la valeur du R.G. courant. 


(STATUS 1 n1 ... nN) - mnémo : SETBIT - 
met à 1 tous les bits du R.G. de numéro n1 ... nN. Si un de 
ces arguments n'est pas un nombre tel que 0<и,<55, l'erreur 


status est déclenchée. Ce status ramène nN. 


(STATUS 2 м1... nW) - mnémo : CLRBIT - 
identique à CSTATUS 1 ... ) en mettant les bits à O. 


CSTATUS 3 n1 ... nN)  - mnémo : NEGBIT - =. EE 
identique à CSTATUS 1 ... ) en inversant les bits. 


(STATUS 4 ni ... nN) - mnémo : TESBIT - 
teste des bits du R.G. Ce status ramène nN si tous les bits 


de numéro ni ... nN sont positionnés à 1, sinon ramène NIL. 
2.15.5 Conversion des nombres 
Le traitement des signes est contrôlé : ` | 

- en entrée par les bits 12 et 13 du R.G. ; 


- en sortie par les bits 22 et 25 du R.G. 


On peut également modifier les bases de conversion des nombres qui sont, 
par défaut, décimales. | 
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(STATUS 5 n) - mnémo : IBASE - 
si 2<n<16, n est la nouvelle base de conversion des nombres 
en entrée. Ce status ramène la base de conversion courante. 
|1 existe un macro-caractére standard, l'antislash X , qui 
permet de lire temporairement (le temps d'une S-expression) 
des nombres en octal. | | 
ex : N C630 . 300) est équi valent à (408 . 192) 


(STATUS 6 n) - mnémo : ОВАЅЕ - | 
si 2«n«16, n est la nouvelle base de conversion des nombres 


en sortie. Ce status raméne la base de conversion courante. 


2.15.4 Le buffer de sortie 


Le buffer de sortie est organisé de la manière sulvante : 


impression 
” ~ t 


+ + + + 
Préfi xe marge pointeur courant marge 
gauche d'édition droite 
LMARGIN PBUFOUT RMARGIN 
(STATUS 7 n) - mnémo :  LMARGIN - 


si n est un nombre, donne la valeur n à la marge gauche. Si 
RMARGIN<n<O l'erreur status se déclenche. Ce status ramène la 


valeur courante de la marge gauche. 
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(STATUS 8 n) - mnémo : PBUFOUT - 
si n est un nombre,donne la valeur » au pointeur courant d'édition. 
Si RMARGIN<n<O l'erreur status se déclenche. Ce status ramène la 


valeur courante du pointeur d'édition. 


(STATUS 9 n) - mnémo : RMARGIN - 
si n est un nombre,donne la valeur n à la marge droite. si 
118«n«LMARGIN l'erreur status se déclenche. Ce status ramène 


la valeur courante de la marge droite. 


Si les fonctions SPACES et TTAB n'étaient pas standard,on pourrait les 


définir de la maniére suivante : 


(DE SPACES CN ;; AUX) 2 
CSETQ AUX (PLUS (STATUS 8) ND) 
CIF CLT AUX CSTATUS 9))CSTATUS 8 AUOCTERPRIDDD 


(DE TTAB (ND | 
CAND (GEZP NDCLT N CSTATUS 9DXCSTATUS 8 NDJ) 


(2.15.5. Les préfixes 


A chaque impression, un caractère préfixe est ajouté à gauche de la ligne, 
. pour différencier les S-expressions objets ou résultats. 
Pour les 3 status ci-dessous, l'argument, s'il est donné, doit être un 


caractère (c'est-à-dire un atome littéra! mono-caractére). 


(STATUS lle)  - mnémo : PREFORM - 
ce status permet de modifier le caractére préfixe de toutes 
les formes lues par la fonction TOPLEVEL, en vue de leurs 
évaluations. Ce caractère est également envoyé sur la TTY avant 


toute lecture de ligne. Par défaut ce caractère est le ?. 
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CSTATUS 12 e) - mnémo :  PREFTOPL - 
ce status permet de modifier le caractère préfixe du résultat 


de l'évaluation de la fonction TOPLEVEL. Par défaut ce caratère 
est le =. 


(STATUS 13 e) - mnémo : PREFPRINT - 


ce status permet de modifier le caractére préfixe de toutes les 


Impressions de l'utilisateur. Par défaut ce caractère est l'espace 


ne 


2.15.6 Les caractéres spéciaux 


L'analyseur lexical VLISP (la fonction READ) exécute un traitement particulier 
pour les caractéres suivants : 


- le quote caractère, par défaut /. 11 permet d'insérer des sópara- 
teurs dans le P-name d'un atome. Son action est validée par le 
bit 14 du R.G. 


; 
- le délimiteur de commentaires, par défaut ;. Tous les caractéres 


qui se trouvent entre 2 ; seront ignorés à la letture. Son 
action est validée par le bit 18 du R.G. 


- le délimiteur de chaînes de caractères, par défaut ". Son action 
est validée par le bit 17 du R.G.. 


Certains status permettent de modifier et/ou de connaître ces caractères 


spéciaux : leur argument e doit être un caractère (atome mono-caractère) 


sous peine de déclencher l'erreur status. 


(STATUS 14 e) - mnémo : CQUOTE - 


5{ e est donné, modifie le caractère spécial quote caractère. 


Ce status raméne le caractère quote-caractère courant. 


http://www.artinfo-musinfo.org VLISP 10, mars 1976, page 68 / 106 


65 - 


n G- IE dor eit 


CSTATUS 1522 - mnémo : CCOMMENT - | 
si е est donné, modifie le caractère spéclal délimiteur de 
commentaire.Ce status ramène'le caractère délimiteur de commen- 


taires courant. 


(STATUS 16 с) - mnómo : CSTRING - | 
' modi fie le caractère spécial délimiteur de chaine. Si e est 


donné, ce status ramène le caractère délimiteur de chaînes cuo 


courant. 


ex 2 (STATUS 14) + / 
? CSTATUS 15) + ; 
? CSTATUS 16) + " 


Tous les autres caractères ont un type qui peut être : 
20 séparateur d'enregistrement (ex : RC LF escape s...) . 
| séparateurs nuls (ex : espace tab ... ) 


caractère normal 


л P GQ N 


(STATUS 17 с n) - mnémo : TYPECHAR - 0 | " 
| | permet de modifier le type du caractère o par le nombre n si n: 
est un nombre. Si e n'est pas un caractère ou si n n'est pas un 
nombre Те! que O<n<5, l'erreur status est déclenchée. Ce status 
ramène la valeur du type courant du caractère o ; |! permet de 
changer les tables de l'analyseur lexical VLISP-10. 
ех: ? (STATUS 17 '/.) + 3 
22 (STATUS 17 '/< 4) > 1 
? CSTATUS 17 '/> 5) +5 
l'entrée ` «CONS "(САУ '«B»» 
sera comprise comme (CONS "CAD '(B)) 
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2.15.7 Les macro-caractéres 


Tous les caractéres normaux (de type 2) peuvent servir de macro-caractére. 
Un macro-caractére est un caractére auquel est associé une fonctlon qui est 
lancée automatiquement, avec NIL comme argument, à chaque lecture de ce 
caractére. La valeur ramenée par cette fonction remplace le macro-caractére 
lu. Cette action est validée par le bit 15 du R.G. 


|| existe 2 macro-caractéres standard : 


- le quote ' placé devant une S-expression quelconque ramène la 
liste CQUOTE S-expression) 


ex : "CA B) est équivalent à (QUOTE (A В)? 

ТА " " " CQUOTE CQUOTE A25 
l'anti-slash X placé devant une S-expression ramène cette | 
S-expression en considérant que tous les nombres qui y sont 
inclus sont écrits en octal. | 


ex : \ (630 . 300) est équivalent à(408 . 192) en décimal 


. (STATUS 18 c 8) - mnémo : MACHAR - 

| permet de donner la définition s (si 8 est donné) de la fonction 
associée au macro-caractére о. Ce status ramène la définition 
courante du macro-caractére e. Si e n'est pas un caractère 


(atome mono-caractére) l'erreur status se déclenche. 


(STATUS 19 с) - mnémo : SELCHAR - 


permet de détruire la définition du macro-caractére e. e n'est 
donc plus un macro-caractère. Si e n'est pas un caractère (atome 


mono-caractére), l'erreur status se déclenche. 
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(STATUS 200 - mnémo : LASTREAD ~ 
ce dernier status ramène un pointeur sur la dernière S-express i on 
lue avant l'appel du macro-caractère courant. Ce status est 
utilisé pour connaître (CAR (STATUS 20)) ou pour modifier 
CSET (STATUS 20) ...2)1a dernière S-expression lue juste avant ` 
l'appel d'un macro-caractère, ` 
ex 1 :si les macro-standard n'étaient pas définies, Оп ате 
le faire de la manière sul vante | 
(STATUS 18 (QUOTE /')CQUOTE CLAMBDA С) 

(LIST QUOTE CREAD))))) 


CSTATUS 18 'N — 'CLAMBDA (L) 
(PUSH (STATUS 590000 
(STATUS 5 8) 

CSETQ L CREAD)) 
(STATUS 5 жн 
LA) | 


(ex 2 соно де 2 mecro-carectéres : | рош CONS et I. pour 

le SETQ en notation Infixé : | 
(STATUS 18 '/: '(LAMBDA C) 

CPUSH CCAR CSTATUS 20222 

CSET CSTATUS 20) | 

CIF СМЕО СРЕЕКСН)' /=) ' CONS 
` .CREADCH) 'SETQ)) 
(POP)) 


la lecture de СА : B) sera équivalente à — CCONS A B) 
" " "CI := 4) " " " (5ЕТ0 1 4) 
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2.15.8 Le Garbage Collecting 


Le Garbage-Collecting (6.С.) récupère les doublets libres de іа liste 
libre (si celle-ci vient à épuisement), ainsi que les atomes, non utilisés. 
Si. un G.C. n'a pu récupérer des doublets, le message d'erreur suivant 
apparaît : 
хы FULL MEMORY. 


саа status permettent de contróller le travail du G.C. 


Le bit 5 du R.G. 


permet d'obtenir une trace et des statistiques à chaque G.C. 


(STATUS 21) - mnémo :  GARBCOLL - 


lance un G.C. et ramène en valeur le nombre de doublets libérés. 


CSTATUS 22) - mnémo : LFREE - 


ramène le nombre de doublets libres (sans lancer de G.C.) 


GT 23 n) - mnémo :  STEPGC - | 
кы. э “donne une valeur n au nombre de G.C. que t'Interprète pourra 
effectuer avant de déclencher l'erreur fibellée 
XX ER G.C. STEP DONE. 


CSTATUS 24 n) - mémo : LIMGC - 


donne le nombre minimum М de doublets récupérables à chaque G.C. 
Si ce nombre n'est pas atteint i! y a impression du message 
d'avertissement suivant : | 

xx LEFT CELLS : n. 


“ой n est le nombre de. doublets réellement récupérés. 
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2.18.5 Ctompleur de GENSYM 

“б nd = табто : GENSYMC ~ 
gerne із valeur n (s) nn est un nombre) au compteur de la fonction 
oEMCTYM, Le status ramène le compteur courant en valeur. 


- 
+ 


о: ? CGENSYMD + GIOI 


$ ` ` 
2 CSTATUS 26 1060) + 1009 
CGUMZYM) > 61001 
t 
à 
215.1! Trege des fonctions 


permet de tracer tous les appels internes de la fonction Interprète 
EVAL. | 


Le bit 4 du К.С. 


permet de tracer tous les appels internes de la fonction interprète 
=. APPLY. |. POE. Ж. . и A a ш | E T Е B 1 


r 


CSTATUS 28 al e eg aN) = mnémo 4 TRACES аш 


Тгасе les appels des fonctions standard a1 ... aN ainsi que les 


valeurs retournées par ces fonctions, qui dolvent être de type 
SUBR ou FSUBR. | 


CSTATUS 29 a1 ... aN)  - mnémo : UNTRACES - 


enléve |а trace des fonctions standard a1 ... ай mise par 
TRACES. | | ` 
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Exemple de TRACE 


+... ө е ^ * 


? (INPUT (DSK (TRACES „ VLI))) 
= 17324366083 | | 


? (DE FACT (М) (COND ((ZEROP М) 1) ((TIMES N (FACT. (5081 N)))))) 


FACT 
? (РАСТ 3) 
z 6 
? (STATUS 28 *'COND *'ZEROP 'TIMES 'SUB1) 
= 28 
? (РАСТ 3) 
> COND : (((ZEROP М) 1) ( (TIMES М (FACT (5061 М))))) 
.; ==> ТЕНОР : (3) 
desse ZEROP = МП 
` ^--» SUBI : (3) 
^» <--- SUBI = е | | | 
` ess? COND : (((ZEROP М) 1) ( (TIMES N (FACT (SUBL N))))) 
, ===> ТЕНОР : (2) | 
. <= ZEROP = NIL 
‘> 5081: (2) 
{<= SUBL = 1 | | | 
` «> COND : (((ZEROP N) 1) ((TIMES N (FACT (SUB) N))))) 
> ZEROP : (1) mE | p 
<== ZEROP = NIL 
> SUBL : (1) 
<= 5081 = 0 | | | | | | 
==> COND : (((ZEROP N) .1) ( (TIMES N (FACT (SUB) N))))) 
<> ZEROP : (0) 
<= ТЕНОР = 0 


<==- COND = 1 


=> TIMES : (11) 
<==- TIMES = 1 
:<--- COND = 1 
---> TIMES : (21) 
<==- TIMES = 2 


<== COND = 2 


> TIMES : (3 2) 
<--- TIMES = 6 
<--- COND = 6. 

z 6 | 


? "(STATUS 29 *COND 'ZEROP *TIMES 'SUBl) . 


Mua 

; j Ж.Ы a EN à : É 
##.E50.F 
"ы, TÈ f 


ж. + a 
N d T 8 Қа Ы 
`. ` 

a. % Da " 


LYS? (STOP) 


tp 
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2.15.11 


(STATUS 


(STATUS 


(STATUS 


(STATUS 


(STATUS 


(STATUS 


E С mémo : DATE - 


D А o 
| | - 71- 
а P 
-. DS nm `. sisi 
Sage à - 
e Ў 2 +. Gu 
Lar F ` A 
D Ы -. s" 
n `+ 


Fonctions qui utilisent des UUOses 


31) - mnémo : SWITCH - 


ramène la valeur des clés du pupitre opérateur (SWITCH UUO). 


32 n)  - mnómo : LIGHTS -- 
affiche la valeur n sur les voyants du pupitre (LIGHTS UUO). 


34 n1 n2) - mnémo : GETTAB - 
ramène la valeur de la GETTAB UUO (accès aux tables du moniteur) 


avec М1 comme index et n2 comme numéro dans la table. 


35) - mémo : ` RINTIME © i E | MET 
pumice. le temps utilisé en mi 111-secondes depuis le début du | 
travai | (RUNTIME UUO). 


36) Ka imémo : DAYTIME - 


raméne l'heure du jour en mi Hi- secondes (DAYTIME UUO). 


А p zm = 


` ramène Ta date du jour sous la forme ` : 


KE? (année -.1964) x 12 + (mois - D) х F * Jour - 1. 2 (DATE UUO). 


| (STATUS к 
= ramène le numéro du job (PJOB ШО). WW 


(STATUS 


Кк SEH PJOB - 


59) - mémo E GETPPN. - 


.raméne le numéro de projet-programmeur : utilisateur sous la forme 


| d'une paire pointée numérique (pJ.pg? (GETPPN UUO). 
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2.15.12 Récapitulatif des fonctions status 


(STATUS 
(STATUS 


(STATUS. ` 


CSTATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 


CSTATUS 


(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 


(STATUS 


(STATUS 
(STATUS 
(STATUS 


(STATUS. 


(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 
(STATUS 


... NN) 
ss. NN) 
... nN) 
... nN) 


28 al ... aN) 
29 al ... aN) 
31) 

32 n) 

34 n1 n2) 

35) 

36) 

37) 

38) 

39) 


 mnémonique 


SETRG 


SETBIT 
CLRBIT 
NEGBIT 


_ TESBIT 


IBASE 


|. OBASE 


LMARGIN 


PBUFOUT ` 
 RMARGIN 
. PREFORM . 


PREFTOPL 


PREFPRINT 


CQUÔTE . 
CCOMMENT 
CSTRING 
TYPECHAR 
MACHAR 

DELCHAR 


LASTREAD ` ^ 


GARBCOLL 
LFREE 
STEPGC 
LIMGC : 
GENSYMC 
TRACES 
UNTRACES 
SWITCH 
LIGHTS 


GETTAB 


RUNTIME 
DAYTIME 
DATE 
PJOB 
GETPPN 
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val. / def. 


(1655760002) g 


ECTE 
lO 
0 


| ET | 


2% № 3 и 2 


10010 


Q G Q G Q G Q Q Q 


— Te = 


teste si 


п>] 
050,555 
O<n <35 


0545555 


042435 - 
254216: 
2«n. «16 


On <118 ` 


O<n <118 


18<n «118 


est un 
est un 
est un 
est un 
est un 
est un 
est un 
est un 
est un 


n est un nombre 

n est un nombre 
n est un nombre 

a. est un atome 
+ 

a, est un atome 


^ est un nombre 


caractére | 
caractère 
caractère 
caractère 
caractère 
caractère 
caractère, O<n<5 
caractère 
caractère 


littéral 
littéral 


nl et n2 sont des nombres 


ARR e 


2.16 Les fonctions système 


CLOC 8) - SUBR - 


ramène l'adresse physique de la S-expression в. 


СУАС n) - SUBR - 
raméne l'objet LISP qui est à l'adresse physique n. 
ex: (СОС 'X) + 846 
В СУАС 846) + X 
СУАС CLOC "CA B С))) + (AB CD 


CTOPLEVEL) - SUBR.- | | | | 
Cette fonction est appelée par |a boucle principale de l'inter- 
prête. Elle peut être également appelée et redéfinie par l'utili- 
sateur. D'une manière standard TOPLEVEL réalise des opérations 

semblables а. (РЕ TOPLEVEL С; ; LU) 
. CSETQ LU CREAD)) 
- CAND (STATUS 4 2) (PRINT LU) 
CSETQ LU (ЕУА LUJ) 
(AND (STATUS 4 1) (PRINT 1222 
Remarque : une redéfinition de cette fonction, qui n'évalue pas 
des S-expressions.lues, rend le système inutilisable 
ex : définition à éviter 
ü СОЕ TOPLEVEL О) 


CREAD) 'NAND 


CRESET) - SUBR - 
arrête l'évaluation en cours, lance un G.C. et redonne le 


contròle à la boucle principale de l'interprète. 
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CERROR 81 ... 8N) - NSUBR - 
évalue les différentes expressions 81 ... sN en séquence et 
imprime sur le fichier standard de sortie le message : 
ХХ USER ERROR : sN 
Le contrôle est ensuite rendu à la boucle principale de 


l'interprète. ` 


(BREAK 81 ... 8N) - NSUBR - 
évalue les différentes expressions 81 ... 8N en séquence. La 
valeur de la dernière évaluation i.e. celle de гл est la valeur 
du BREAK.BREAK suspend l'évaluation en cours,imprime le message 
хх ENTER BREAK : valeur du BREAK 
et appelle la fonction TOPLEVEL tant que la valeur ramenée par 
cette fonction est différente de la valeur du BREAK. À la sortie 
d'un BREAK, le message suivant est imprimé : | 
XX EXIT BREAK : valeur du .BREAK | 
et l'évaluation suspendue reprend. 
ex: ? CPROGN CSETQ 1 10) 


? . (BREAK "РЕ? 

H (PRINT 122 
хх ENTER BREAK : RE 

? ] 

- 10 

? CSETQ I 11) 

- 11 

? 'RE 

- RE 
xx EXIT BREAK : RE 
11 

- 11 


б 
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(STOP) ~ SUBR - 
arrête l'évaluation en cours, ferme tous les fichiers ouverts, 


sort de l'interpréte et rend le contróle au moniteur (EXIT UUO). 


T Asa сан анаа ше 


pd qr f x s © 


Les Noirs 201 et qos (В-13 et C-:13! ont été pris par le coup du 
Blanc 206. et le Blanc 210 a été placé au C-18, occupé autrefois par le 
Мой 303. 

Les Blancs 196 et 198 (F-10 et E-10 ont été pris par le coup du 
Noir 221, et le Noir 223 a été placé au F-10, occupé autrelois par le 
Blanc 196. 
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5 LES CHAINES ОЕ CARACTERES 


VLISP-10 permet la manipulation d'objets de type chaîne de caractères 
(STRING). Une chaîne de caractères est une suite illimitée, si ce n'est 
par la taille de la mémoire, de caractères quelconques. Sa représentation 
externe est cette suite de caractères encadrée du caractère délimiteur 
de chaîne . Si ce caractère doit être inséré dans une chaîne, i! faut 
le doubler. Les caractéristiques d'une chaîne sont : 

- les caractères qu "elle contient. ; 


le nombre de ces caractères (sa. longuë eY] 


ех: (|а chaîne contient les. caractères ` Lun cet. a pour longueur 
"CHAINE 10" CHAINE 10 Z л Hg 10 
dau e PUER CON), | PD T 8 
"m | S "Ó | 1 
"н ‚ aucun , Ж ыгал." Ж s HE. > 0 


ао але. $ hate: la^ 
chafne Ale ou nulle | 


_ En entrée, la lecture des chaînes, par la fonction READ, Zei validée par 


le bit 17 du R.G., les chaînes sont lues en représentation externe. 


En sortie, la restitution du caractère délimiteur de chaîne est validée 
par le bit 27 du R.G. 


Le caractère délimiteur de chaîne par défaut " peut être modifié grâce à 
la fonction (STATUS 16 ...) (voir 2.15.6). 
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3.1 LES FONCTIONS SUR LES CHAINES 


La valeur d'une chaîne de caractères est cette chaîne elle-même. Tout 
comme les nombres, une chaîne n'a ni C-valeur, nl P-liste. Pour toutes 
les fonctions qui vont suivre, les arguments, qui doivent être de type 
chaîne, sont symbolisés par str . Si ces arguments ne sont pas de type 
chaîne, ils sont convertis automatiquement en chaîne au moyen de la 
fonction STRING. Pour avoir accés à l'ensemble des fonctions sur les 
chaînes, 11 faut charger le fichier CSTRING . VLI) 


3.1.1 Les fonctions de conversion de chaînes 


(STRING 8)  - SUBR - | 
convertit la S-expression 8 (de type quelconque) en une 
chafne de caractéres : | | 
si 8 est une chaîne STRINGraméne cette chaîne ; 
si 8 = NIL, STRING ramène la chaîne vide mt 
si 8 est un atome,STRING ramène la chafne contenant tous 
| les caractères du P-name de cet atome 
si 8 est une liste, elle est supposée être une liste de 
de caractéres (atomes mono-caractéres). STRING 


ramène la chaîne composée de ces caractères. 


CMAKLIST str) - SUBR - | 
convertit la chaîne str en une liste de caractères (atomes 


mono-caractére). Si str est la chaîne vi de,MAKLIST ramène 
NIL 
ех: ? (STRING "АТОМЕ)-- "ATOME" 
^ ? CSTRING "СА Z T f. QD) +"AZT,Q" 
? CMAKLIST "STRG") + (STR G) 
CMAKLIST CSTRING 'СА Z T /. 003) + (AZ T /. Q) 


“2 
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34142 Prédicats sur les chaînes 


(STRINGP 8) - SUBR - 


ramène в si s est une chaîne, sinon ramène NIL. 


(NULLSTRP str) - . SUBR. - 


ramène str si str est la chaîne vide Së sinon ramène NIL. 


(EQSTRING str1 str2)  - SUBR - 
ramène str1 si la chaîne str2 contient les mêmes caractères 
et a la méme longueur que la chaîne str2. Cette fonction 
est équi valente à EQ, mais convertit: ses 2 arguments en 
chaînes. "M 
| ex : (EQSTRING 'STRG "STRG") + MSTRE — — 


53.1.8 Les fonctions de recherche dans les chafnes ` 


(STRINGL etr) m SUBR E 


ramène le nombre de caractères de la chafne str. 


(INDEX str1 str2 n) Z suBR E u 
recherche dans la chaîne strl la sous-chafne str2 à partir 
du nième caractère de 8tr1. INDEX ramène la position du début de 
de la sous-chafne str2 par rapport au début de la chatne str1 
Si n n'est pas un nombre ou est omis, la recherche s'effectue 
à la position 1. Si la sous-chaîne sér2 n'existe pas dans la 
chaîne 3721, INDEX ramène NIL B 

ex: ? | CINDEX "ABRACADABRA!! "RAC) +3 

9 | CINDEX "ABRACADABRA" "ВАС! 4) + NIL 
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3.1.4 Les fonctions de création de chaînes 


(CONCAT 8tr1 ... strN) - SUBR - 


ramène une chafne résultant de la concaténation des copies 
de toutes les chaînes strl ... strN. 
ex : ? CCONCAT "AB" CADDI 14) "" "АТУ > "AB15AT'! 


CSUBSTRING atr n1 n2) - SUBR - 


(DUPL str n) 


ramène une copie de la sous-chafne de str commençant à la 

position n1 et se terminant à la position n2. ` 

si nl > n2,SUBSTRING ramène |а chaîne vide "" 

si n1 n'est pas un nombre, la sous-chafne commence à la 
position 1 de la chaîne str | | 

si n2 n'est pas un nombre ou est omis, la sous-chafne se 


- 


termine а la fin de fa chaîne str. 


ex: ? CSUBSTRING "ABRACAD' 2 H) > "BRA" 


? CSUBSTRING "ABRACAD' NIL 4) + "ABRA" 
? (SUBSTRING "ABRACAD' 2) + "BRACAD' 


- SUBR - 

ramène une chaîne résultant de la duplication м fois de la 
chaîne str. Si n n'est pas un nombre, ou est omis, DUPL 
ramène une copie de la chaîne str. Si n < O,DUPL ramène 
la chaîne vide 

ex : ? CDUPL "АЦО" 3) + "ALOALOALO'"' 


CREVERSTR str)  - SUBR - 


ramène une copie de la chaîne str inversée. 


ех : ? CREVERSTR "ALO') + "ОГА" 
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CREPLACE str1 str2 str3) -.SUBR - ИИ 
ramène une copie de la chaîne stri en y и Toutes les 
occurences de la sous-chaîne str2 par la chaîne etnë, 


ex :? CREPLACE "STRG1 STRG2" "ТАС" "CHAINE" >» "CHAINE! CHAINE 2" 


(TRANSLATE strl str2 str3), - SUBR - M Gu" 
ramène une copie de la chaîne str] en y — les carac- 
téres qui font partie de la chaîne str2 par leurs homologues 
= dans la chaîne str3. Si. des caractéres de str2 n'ont pas 
d'homologues dans la chaîne str$ (1. e. si. 
.. KSIRINGL str2) > CSTRINGL str3)) ... . 
An, sont. enlevés de la chafne résultante. | 
ex :? (TRANSLATE "ABRACADABRA" "АБС" "OL'') +ÜOBLOODOBLO" 
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5.2 EXEMPLE DE FONCTIONS SUR LES CHAINES 


(DE СОМУВОС (NB) 
(IF (LE NB 1) 
(STRING NB) 
(CONCAT (CONVBDC (QUO NB 2)) 
(REM NB 2)))) 


H >J 60 99 9 9 


СОМУВОС 


(СОМУВОС 13) 
"1101" 


H 2 


(CONVBDC 27) 
"11011" 0 


TE 


(DE PALINDROM (CH) 
(SETQ CH (TRANSLATE CH ",3,:1?* 0€) mei) 
(EQSTRING (REVERSTR CH) CH)) 
 PALINDROM  — | 


"ETE EM 


? (PALINDROM MADAM’) 
= "MADAM" 


? (PALINDROM "ELU PAR CETTE CRAPULE wee ") 
= "ELUPARCETTECRAPULE" 


? (PALINDROM "POURQUOI DES CANONS 7?) 
z NIL | 
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4 - LES EDITEURS, LES CORRECTEURS 


4.1 LE PRETTY-PRINT 


Les fonctions standard PRINT et PRIN1 peuvent éditer n'importe quelle... 
S-expression. Les seules mesures prises pour améliorer la lisibilité sont : 
- l'insertion d'un espace entre chaque atome ; 


- l'interdiction d'éditer un atome sur deux lignes. ir 


Ces mesures sont nettement insuffisantes pour éditer’ des programmes VLISPs. 
- ` 


Une fonction utilisateur,éditée par ces "fonctions standard, devient illisible 


dès qu'elle dépasse quelques lignes. 


Les fonctions du PRETTY- PRINT vont éditer tes fonctions utilisateur d'une 
manière beaucoup pius lisible en faisant ressortir, au. moyen de: reñfoncements 
gauches et de sauts de lignes appropriés, la structure de contrôle du | 
programme. Les fonctions éditées au moyen du PRETTY-PRINT pourront être 


relues par la fonction standard de lecture : READ. 


Pour avoir accès à l'ensemble des fonctions qui vont être décrites, il 
faut au préalable charger le fichier (DSK (PRETTY . VLID\C630 . 3002) 
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4.1.1. Fonctions du PRETTY-PRINT 


(PRETTYP 8) 
édite la S-expression в en utilisant le PRETTY-PRINT. PRETTYP 


ramène 8 en valeur. 


(PRETTY al ... aN) 
édite les fonctions utilisateur a1 ... aN sous la forme de 
définitions DE ou DF en utilisant le PRETTY-PRINT. PRETTY 
raméne NIL. 


CPRETTYFILE ftlout filini ... filinN) 
édite dans le fichier de sortie fitlout les différents fichiers 
filinl ... filinN en utilisant le PRETTY-PRINT. PRETTYFILE 
édite également les commehtaires qui se trouvent dans les 
fichiers. d'entrée et fait un saut de page sur le fichier de 
sortie à la rencontre d'un commentaire de la forme ;PAGE; 
PRETTYFILE raméne NIL en valeur. 
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4.1.2 Exemple d'utilisation du PRETTY PRINT 


(LOAD : PRETTY PRETTYP PRETTYFILE) 


++ Е.0.Ғғ. 
? (СОН PRETTY) | | 
= (FEXPR (LAMBDA (SL %Х) (МАРС Жі *'(LAMBDA (*L) (COND ((SETQ ЖХ (GET 
= GL EXPR)) (PRETTYP (CONS "ОЕ (CONS 3L (CDR %X))))) ((SETQ ax (GET 
= «SL FEXPR)) (PRETTYP (CONS "ОҒ (CONS жі (CDR #X))))) ((PRETTYP %L))) 
= (ТЕНРЕІ))))) | 
? (PRETTYP (COR *PRETTYO) 
(FEXPR 
(LAMBDA (ЖІ VX) 
(МАРС %L 
* (LAMBDA (%L) 
( CONO 
((SETQ %X (GET #L EXPR)) | 
. «PRETTYP (CONS “ОЕ (CONS %L (COR %Х))))) 
((SETQ %Х (GET &L FEXPR)) к 
| (PRETTYP (CONS “ОҒ (CONS %L (CDR %X))))) 
((PRETTYP %4))) | | 
| 0 (ТЕРЕ — ° 12. 5 | 
= (ҒЕХРВ (LAMBDA (%L %Х) (МАРС %L '(LAMBDA (XL) (COND ((SETQ %X (GET 
= SL EXPR)) (PRETTYP (CONS “ОЕ (CONS %L (CDR %Х))))) ((SETQ %X (GET 
= %L FEXPR)) (PRETTYP (CONS "ОҒ (CONS %L (СОН %Х))))) ((PRETTYP 9$L))) 
z (TERPRI))))) | 
? (PRETTY PRETTY) 
(DF PRETTY (SL %Х) 
(МАРС 9L 
* (LAMBDA (SL) 
( COND 
((SETQ %Х (GET Жі EXPR)) 
(PRETTYP (CONS "ОЕ (CONS SL (COR %X))))) 
( (SETQ %X (GET SL FEXPR)) 
(PRETTYP (CONS "ОҒ (CONS %L (COR %X))))) 
((PRETTYP 9$L))) 
(TERPRI)))) 
= NIL 
7 (STOP) 
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4.2 LA SORTIE BRAILLE 


є 
VLISP-10 possède un mode de sortie en Brai lle. ) 


Les poinçons sont réalisés par la frappe de caractères spéciaux tels que 
le point ., la virgule , et le quote ' sur une imprimante qui subit des 
modifications très légéres : Е | | 

- retrait du ruban encreur ; 

- mise d'un "tampon" souple entre les marteaux de l'imprimante 
et le papier. Ce tampon peut être réalisé au moyen d'une 
feuille de paravent standard pliée en six. 

les meilleurs résultats sont obtenus en utilisant du papler fort. 


|| n'existe à l'heure actuelle qu'une fonction d'édition de fichiers : 
BRAILLEFILE. Pour l'utiliser il faut au préalable charger le fichier 
CDSK CBRAILL . VLID\C630 . 3002). | 


KRRATELEGILE filout filin1 ... filinN) | 
édite en braille dans le fichier de sortie filout, les 
différents fichiers d'entrée filini ... oi 
BRAILLEFILE ramène NIL. 


Des études sur la composition automatique de textes en Brai!le sont en 


` 


cours de réalisation à l'Université Paris 8-Vincennes. 


(x 
Œ) Cette réalisation,unique, n'aurait pas été possible à l'Université de Paris 8- 
Vincennes. sans la grande patience et les précieuses connaissances sur les 


problèmes des informaticiens mal-voyants de Messieurs Alain GALLETY et 
Jean-Marie BUISSON. 
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4.5  GREDIT 


GREDIT est un petit correcteur conversationnel, il est simple et facile à 
utiliser : son nombre trés restreint de commande le rend trés commode et 
trés sür pour modifier des S-expressions. (Le lecteur trouvera un exemple 
de session complète avec GREDIT en fin de chapitre.) 


Les repérages sur les S-expressions arborescentes étant peu pratiques, 
GREDIT commence par transformer Фа S-expression à corriger en une suite 
linéaire d'éléments composée des sóparateurs LISP C) . et ', et des atomes. 

ex : |а S-expression 

ñ (сомо C(NULL L) 'OKOCCREP (NEXTL LIII) ` 

est transformée en une suite d'éléments | 

C COND C C NULL L D ' OK ) C C REP C NEXIL L 2 2 22D 

12 34 5 678910.. . . . ë œ à $ Q 


Un pointeur courant de position (PCP) contient à tout moment le numéro de 
l'élément sur lequel l'utilisateur se trouve. Le repérage sur la suite 
d'éléments se fait par : 

- comptage d'éléments à partir du PCP ; 

- recherche d'une sous-suite d'éléments, toujours à partir 

| du PCP. 


Après avoir exécuté les corrections que l'utilisateur demande au moyen de 
commandes, GREDIT va transformer la liste d'éléments en une nouvelle S-expres- 
sion qui, si la transformation réussit, va remplacer la S-expression que 


l'on voulait corriger. En cas d'échec de cette transformation le contrôle 
reste à GREDIT. 
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4.5.1 Les commandes GREDIT 
Lorsque GREDIT attend une commande, il imprime une astérisque * sur la TTY, 


à la place du 'prompt-character'standard  ?. 


Les commandes sont écrites en format libre et doivent tenir sur une ligne. 
Plusieurs commandes peuvent être placées sur une méme ligne, mais séparées 
par des points-et-virgules ;. Les éléments séparateurs (С ) . ' # ; 
"RETURN") peuvent être encadrés d'un nombre quelconque geste Une 
commande est une suite d'éléments dont le premier est le nom de la colmánds : 
seul le premier caractére de ce nom est significati f. Si une commande n'est 
pas reconnue par GREDIT le message suivant apparaît : 

ИХ GREDIT ERROR : INVALID COMMAND = la commande inconnue 


Certaines commandes demandent un repére sur la chafne d'éléments qui leur 


permet de se localiser par rapport au PCP. 


repéres localisation par rapport au PCP de : 
commande - rien - - | élément 

"n 1 - beaucoup d'éléments (jusqu'à la fin de la liste) 

nn # nb - nb éléments. Si nb n'est pas un nombre le message 
suivant apparaît : ы 
** GREDIT ERROR : INVALID COMMAND = # nb 
et la commande n'est pas exécutée 

"t eli... elN - jusqu'à la rencontre de la sous-suite ell ... eln. 


Si une telle sous-suite n'existe pas le message 


sui vant apparaît : 
XX GREDIT ERROR : SEARCH FAILED = 211 ... ei 


et la commande n'est pas exécutée. 
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* P repére imprime les éléments du PCP jusqu'au repère. Cette commande 

ne modifie pas le PCP. Cette impression est précédée de points 
de suspension si le PCP n'est pas au début de la liste et 
suivie de points de suspension si tous les éléments de la liste 


ne sont pas imprimés. 


* > repère avance dans la suite d'éléments jusqu'au repère. 
xX < repère recute dans la suite d'éléments jusqu'au repère. 


Ces deux commandes modifient le PCP. Après leur exécution 


“ 


GREDIT imprime les 10 premiers éléments à partir du nouveau PCP. 


4.5.1.5 Commandes de modification I (INSERT), D (DELETE) ` 
* I ell ... elN insert à partir du PCP les éléments 211 2... eLN. 
* D repère | enlève tous les éléments du PCP jusqu'au repère. 
Ces deux commandes ne modifient pas le PCP et, comme pour 


les commandes de positionnement, GREDIT imprime les 10 


premiers nouveaux éléments à partir du PCP. 
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4.5.1.4 Commandes de fin de correction E (END), X (EXIT), S (START) 


feet сш siad 0 а FM ss В но Een E РЕВ ne 2 = he B айы» mee cub biw ғал шығ» Re à LN я 


"E | indique la fin des corrections. La sul te d'éléments est 
transformée en une S-expression. Si cette transformation 
échoue le message d'erreur suivant apparaît : 

55 GREDIT ERROR : INTERN FAILED 
et le contrôle reste à GREDIT ; sinon la nouvelle S-expression 


remplace l'ancienne. 


“Хх sortie extraórdinalre de GREDIT. La S-expresslon corrigée 
= . n'est pas transformée, l'ancienne S-expression n'est pas 


modi fiée. 

X S m recommence les corrections sur |а S-expression de départ 
et annule ainsi toutes les précédentes corrections. 

4.5.2 Les fonctions GREDIT 

CGREDITF a1 ... aN) 
appelle GREDIT sur les définitions de fonction des atomes 
al ... aN. | | 

CGREDITV a1 ... ай) 


appelle GREDIT sur les valeurs des différents atomes 
al ... aN. 
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4.543 Exemp le d'utilisation de GREDIT 


? 

? ; 

? (DE FACT (N) | . . 

? | (COND ((ZEROP М) М) | 
? ((TIMES N (FACT 508% N))))) 
= FACT 

? 

? (FACT 3) 


++ UNDEFINED VARIABLE : SUB 


? (PRETTY FACT) 


(DE FACT (N) ` 

(COD — — — 
((ZEROP N) N) | 
( (TIMES N (FACT SUB *N))))) 


NIL 


D 0) H 


(GREDITF FACT) 


( LAMBDA (М) ( COND ( ( ТЕНОР... 
# Py 2. е; 2 | | E 
( LAMBDA (М) ( COND ( ( ZEROP N) N) ( ( TIMES М ( FACT SUB * 
N) ) ) ) ) | | 
Ф > N) ( (3D$I 1 
saw М) ( ( TIMES N ( FACT SUB ©... 
ees ) € ( TIMES N ( FACT SUB t Neve 
s... 1) ( ( TIMES N ( FACT SUB Tee 
в > SUB *NID«331 (SUBI N) 
eee SUB t N )  ) 0) ) 
ees 2 ) ) ) ) 
wes ( SUBIN) ) ) 0) ) ) 
# <#3PH# 
( LAMBDA ( М) ( COND ( ( ZEROP... 
( LAMBDA (М) ( COND ( ( ZEROP N ) 1 ) « ( TIMES N ( FACT ( 
SUB] N) ) 2 ) ) ) 
E | 


ж 


NIL 


(FACT 3) 
6 


(STOP) 


2490 # ° zw И 
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4.4 . PHENARETE * 


PHENARETE est un programme qui tente de comprendre et d'améliorer des 
programmes écrits en VLISP. Actuellement, PHENARETE ne travaille que 

sur un sous-ensemble de VLISP particulièrement adapté à exprimer les 
connaissances d'un programmeur débutant. PHENARETE ne corrige pas 
seulement les fautes d'orthographe ou de parenthésage, i! essaie en 

plus de comprendre le programme et fait des propositions afin d'améliorer 
le programme. 


Pour utiliser les fonctions de PHENARETE, i! faut au préalable charger 
le fichier CPHENAR . VLI). 


4.4.1 Les fonctions de PHENARETE 


СРНЕМАВЕТЕ Aa, +... а„) | 
| commente et améliore (si possible) les fonctions utilisateur 
a. ° + 2 а Ф 
BOJ= | n 


(PHENARETES 8) | mE 
| commente et améllore la S-expression в. Raméne la nouvelle 
expression corrigée en valeur. | 


CPHENARETEFILE filout filin1 ... filinN) 
créé un nouveau flchler filout contenant toutes les S-expres- 
sions des fichiers filini ... filinN, traitées par | 
PHENARETE 


(х) PHENARETE а été congu et réalisé par Н. WERTZ : "Sur 1а Compréhension 
E des programmes LISP améliorables", 
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4.4.2 Exemp les commentés d'utilisation du système 


Nous exposons ici quelques exemples illustrant les capacités de compréhension 


et d'amélioration du système actuel. 


4.4.2.1  Feutes d'orthographe 


Supposons que l'on ait donné au système la définition de la fonction suivante : 


(DE FACT CN) 
CCOND 
CCZEROPP ND 1) | 
СТ CTIMS М CFACCT CUB1 ND) 2 2 
C'est une définition récursi ve d'une fonction qui calcule la factorielle d'un 
nombre N positif. 


Cette définition contient plusieurs erreurs d' orthographe ` Ё 


- ZEROP est écrit ZEROPP 

= TIMES est écrit TIM 
= FACT est à l'appel ie écrit FACCT et 
~ 5081 se présente comme UBI 


Le systéme répond WW р _ explication 


ERREUR NOM : ?ZEROPP + ZEROP ne connaissant pas de fonction ZEROPP, 
puivapetn Suppose que l'utilisateur a ` 


voulu écrire ZEROP 


elle ne connait pas TIMS, donc elle le 
remplace par TIMES 


elle remplace FACCT par FACT: FACT est 
en effet l'unique fonction dont elle a 
connaissance, et FACCT lui ressemble 


ERREUR NOM : ?TIMS + TIMES 


ERREUR NOM : ?FACCT + FACT 


ERREUR NOM : 2081 + SUBI même chose 


PROPOSITION : фал уарєтп Propose alors son amélioration 
du programme, ici purement orthographi- 
GDE FACT CN) que 
CCOND 
CCZEROP ND 1) 


CT (TIMES NCFACT (CSUBI ыу» 
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de 

UN 
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4.4.2.2  Fautes de parenthésage 


Donnons à фалуаретт un autre programme : 


(DE CFACT CN 
CCOND 
(ZERO (N (1 
CT (TIMES (NN CFACT (5081 (NID) ))) DJ) DI) D 


{1 s'agit de la même fonction récursive, avec un parenthésage vraiment 
fantaisiste ... 


$aivapetn propose actions entreprises 
(DE FACT (N) | elle a reconnu que FACT est la fonction 
et N la variable 
(COND ` | | 
CCZEROP ND 1) reconnaissance de la première clause du 


COND et remplacement de ZERO par ZEROP 


СТ CTIMES М СҒАСТ (5081 МУ) | reconnaissance de la deuxième clause du 
29 COND. Ме connaissant pas de variable ММ 
| | ‚| elle l'a remplacée раг М 


фалуаретп a rectifié correctement cette syntaxe inhabituelle, et livré une 
définition de la fonction FACT tout à falt acceptable. 


4.4.2.5 yérification sémantique des fonctions de contrôle 


Exemple sur COND 


(DE CFACT) (М 
COND 
(T TIMES М FACT 5081 NA) 
(ZEROP М 122 


Ce n'est guère mieux : 


- le parenthésage laisse tout autant à désirer ... 
- les clauses du COND sont inversées. 


À 


$a1vapetn propose actions entreprises | 
aa (N) } correction des erreurs de parenthésage 
CCZEROP ND 1) remise en place des clauses du COND et 


(Т (TIMES М (FACT (5181 ND) | correction des erreurs de parenthésage 
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4.4.2.4 Contrôle des boucles 


Donnons au système une quatrième version de РАСТ ::: 


(DE FACT N RES 
(SETQ RES 1) 
(WHILE CCGT N 122 2 
| -(SETQ RES (TIMES М RES). 
RES) 


Outre les erreurs de "T cette définition a le grave inconvénient 


de ne pas faire varier N à l'intérieur de la boucle WHILE , catie boucle est 


donc infinie. 


falvape tn propose > TE actions entreprises 


(ТЕ FACT (N RES) И 
(SETQ RES 1) TEN $ corrections des erreurs de parenthésage 
` (WHILE CGT N D (d вы ML | 
 (SETQ RES CTIMES М SD) PED | 
= (SETQ М CSUB1 ND) A [introduction d'une ` modification de La 
005 527 à u s e | variable de contrôle de la boucle : le 
programme ne "boucle" plus 


NA Amélioration sérentique. d'une fenctlon-uti Liseteur = 


wam qan wan sas RE EE E m n —— À M m kamu — À E m тейік E 


Un dernier exemple (le commentaire se trouve dans le texte). + 


(DE INVERSER (11 L2) 
CCOND 
ССМ L2) L1) 
CT 
CINVERSER 
CCDR L1) 
CCONS ССАК LD 1299) » 


Le lecteur appréciera la subtile réponse de daivapetn : 


(DE INVERSER CL1 L2) 
CCOND | 
C(QNULL L1) 2 
CT 
` (INVERSER 
(CDR L1) 
| CCONS CCAR LD L2) » 22 
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INDEX DES FONCTIONS STANDARD 


$t 49 45 44 + 45 $t 45 49 45 42 t 45 45 5 48 44 SE t 44 44 44 44 Tt 32 46 44 34 44 44 44 dh ir 34 tt 38 47 32 45 34 44 $? 45 44 44 $ 34 D 


# FONCTION # ТҮРЕ * ARG è SECT # PAGE * 
4$ ++ ++ 44 4E 4E + tt 4E 46 42 48 40 t 44 48 Ç? Z+ E 34 + Tt 43 T 34 Tt EAR 42 Tt de AE T; Tp y 34 tt kp тете wF t З t $ 0 

1 # ABS + SUBR # 1 * 2 . 12 + 48 
2 + AUDI + SUBR Ф l] # 2 . 12 # 48 ж 
3 # AUDPROP + SUBR # 3 # 2 +ç 9 % да + 
4 * AND + FSUBR + N “2.3 * 22 ж 
© + АМОҒ * SUBR # NB 2 + 4 * 30 + 
6 + APPEND + SUBR е 0 * 2.6 * 36 ж 
7 # APPENDI a SUBR # N * 2.6 * 36 * 
8 + APPLY * SUBR Ф 2 “2.1 * 18 ж 
9 # ASCII + SUBR * 1 #2. 13 Rp 52 ж 
10 * ASSOC # SUBR # 2 я 2,8 % 4] + 
11 # ASSQ * SUBR # 2 +2, 8 + 4] + 
12 “ АТОМ # SUBR t 1 *2 o 2 + 20 + 
13 # ATTACH 0“ SUBR * 2 * 2.7 * 40 % 
14 + BOOLE E * SUBR # N # ee 12 + 49 + 
15 # BRAILLEFILE # BRAILL # М # 4 „др * 85 ж 
16 + BREAK | # SUBR # М +оо. 16 + 74 ж 
17 + Coe oR * SUBR Ф #2. S # 32 % 
18 + CAR + SUBHK # р # 2.5 % 32 ж 
19 * CASCII + SUBHR Ф ] #2. 13 # 52 ж 
20 + CASSOC + SUBR ë 2 “2.8 * 41 + 
21 + CASSQ ` # SUBR е 2 # 2 . в * 4] + 
22 * CCOMMENT + STATUS # 1 #2. 15 @ 65 * 
23 * CUR * SUBR е 1] #2. 5 * 32 ж 
24 + Сі КВІТ. # STATUS # N % 2, 15 # 61 + 
25 # CNTH # SUBR + о 4 2.5 % 33 “+ 
26 # COMPL # SUBR Ф 1 #2. 12 # 48 + 
27 # CONCAT # SUBR # N 43.1 * 79 * 
28 # COND + FSUBR + N * 2.3 * 03 + 
29 # CONS + SUBR Ф 2 “2.6 % 35 + 
30 + CQUOTE # STATUS # | #2. 15 # 64 ж 
31 * CSTRING * STATUS # 1 #2. 15 # 65 ж 
32 # DATE 4 STATUS * 0 #2. 15 # 71 + 
33 + DAYTIME # STATUS # 0 * 2.15 * 71 + 
34 * DE + FSUBR * N # 2 e 10 # 45 + 
35 * DECR + FSUBR. + 1 * 2,7 * 39 + 
36 * DELCHAR + STATUS # 1 #2. 15 # 66 + 
37 Ф DF + FSUBR % N # 2 . 10 # 45 t 
38 * DIFFER * SUBR # N #2. 12+ ^49 + 
39 * DIVP * SUBR # 2 # 2. 12 * 47 + 
40 # DMI + FSUBR * М # 2. 10 # 45 ж 
41 # DMO # FSUBR + М + 2 ,„ 10 # 45 ж 
4e * OUPL + SUBR е 2 «3.1 * 79 + 
4 3 * EOF * SUBR * 0 #2. 14 + 55 % 
44 * EPROGN * SUBR # 1 *2,]) % 18 = 
44 49 40 49 49 49$ 42 49 42 45 46 44 40 49 49 48 49 44 0400 47 44 44 44.42 42 45 430 42 44 45 49 45 45 45 45 0 4 44 0409 00 44 028 45 SS 
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INDEX DES FONCTIONS STANDARD 


a dt 4 a dh 4 th dh 4 db 44 48 46 TIBIAS Gb 48 48 2 G 44 36 45 4 th 352222444454 4442444 


+ FONCTION + ТҮРЕ * ARG + SECT * PAGE * 

AR AP 4 do AP a 3 43 48 4 4h AP ЯРАР ИР 4 AP 42 42 34 A Gh dè AE db GE 48 48 4b at dt SE 46 4844 48 S 46.48 38.46 48.48 дада А а 
45 * EQ # SUBR е 2 *#* 20 BR 2] * 
46 % EQP * SUBR # 2 * Z. 2 % 20 % 
4T * EQSTRING + SUBR # 2 9" 34.1) * 78 ж 
48 # EQUAL е SUBR # 2 *# 2.0 * el % 
49 * ERROR Ф SUBR # N * 2 0 16 » 74 *- 
50 # ESCAPE + FSUBR * М % 2.3 * 27 % 
51 * EVAL + SUBR # 1 #2. 1 * 18 *- 
52 % EVENP e Supp е 1 #28 . 12 # 47 * 
53 # EVERY 0% SUBR Ф 2 #2. 4 % 30 * 
54 % EVLIS е SUBR * 1 *2.1) * 18 * 
55 “ EXPLODE * SUBR в N +2. 13 + 51 #7 
56 % FSUBR + Supp * 2 42.1 * 19 ж 
57 Ф GARBCOLL + STATUS # 0 # 2 . 15 # 68 +* ` 
Sp * GE ` + SUBR # N #2 . 12 # 97 % 
59 % GENSYM | + SUBR a N #2. 13 # 510% 
60 % GENSYMC + STATUS “4 1 %2.15% 69 + 
61 % GET : + SUBR * 2 42.9 % 43 *- 
62 + GETPPN + STATUS * 0 * 2. 15 # Tl * 
63  * GETTAB + STATUS # 2 %2.15» 71 *- 
64 + GEZP | * SUBR Ф 1 #2. 12 + 47 *» ` 
65 * GO ` + FSUBR # 1 “2.3 * 29 * 
66 * GOTO | * SUBR # 1] «2.3 Ф 29 *- 
67 * GREDITF + GREDIT * М * 4.3 % 89 % 
68 * GREDITV + GREDIT a М # 4 ew 3 * 89 * ` 
69 * GT * SUBR + N * 2. 12 # 47 * 
70 * GZP # SUBR # 1 *2.12* 47 + 
T1 * IGASE + STATUS # 1 *2.15* 62 * 
7T? e ID # Supp * 1 # 2.1 * 19 * 
73 Ф IF ` e FSUBR % М #2. 3 % 22 ж 
74 © INCR + FSUBR + 1 *2.7 + 39 * 
75 # INDEX Ф SUBR # 3 * 3. 1 * 78 % 
76 + INPUT # SUBR в ] #2, 14 # 53 * 
77 Ф LAST * SUBR в 1 #2, 5 % 33 * 
78 * LASTREAD в STATUS * 0 *2.15* 67 % 
T9 * LE * SUBR в М #2. 12 # 47 €* 
80 * LENGTH * SUBR # 1 #2. 12 # 48 % 
81 # LESCAPE Ф FSUBR * М #2. 3 *" 27 * 
82 * LEZP + SUBR a 1 #2. 12 # 47 % 
83 # LFREE + STATUS * 0 + ә. 15 # 68 €* 
84 # LIGTHS Ф STATUS * 1 %2.15% Tl ж 
85 Ф | IMGC + STATUS * 1 * 2 . 15 + 68 * 
86 * LINEAR + SUBR а М "2.6 % 35 * 
87 # LIST “ SUBR а М #2. 6 % 35 ж 
88 # LISTP Ф SUBR # 1 * 2. 2 * 20 % 
89 * LITATOM * SUBR # 1 * 2.2 % 20 % 

£ t 44 tt dh de 2 4 48 46 46 44 48 45 45 dh dh 46 44 45 Gh 48 dh 46 48 44 44 48 42 ECK 48 48 46 48 T+ 48 Ады 
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INDEX DES FONCTIONS STANDARD 


+ 4 $$ de $t 49 48 48 48 48 4E $$ tt 145 t; 45 +$ 44 TF 25 45 Т IE 46 t 48 4 40 tt tt t € 48 tt h 45 F $ 49 4 


e FONCTION 4 ТҮРЕ ә ARG * SECT * PAGE % 
SER EAR 32 43 44 db E 34 T T Te Te EAE 41 te HR 32 Tp 40 dh AE 48 HE GE AF p 48 th 44 dh 4 48 Ч 4E 40 45 48 49 4 4 49 4 0 
90  * LMARGIN # STATUS * 1 # 2 . 15 + 62 а 
91  * LOC е SUBR * 1 së, 16 # 73 + 
92  * LT # Supp Ss N #2. 12 # 47 а 
93  * 12Р # SUBR * 1 # 2 . 12 # 47 » 
94 % MACHAR + STATUS # 2 * 2 . 15 # 66 a 
95 + MAKLIST # Supp е 1 #3. у * 77 ж 
96 % MAP * Supp * 2 # 2, 4 # 3] + 
97 % МАРС # 5088 + 2 * 2.4 + 31 + 
98 % MAPCAR # SUBR * 2 * 2.4 # 3] + 
99 ё MAPCT # SUBR + 2 * 2.4 * 310% 
100 + MAPLIST # Supp * 2 # 2. 4 а 3] +» 
101 % MAPS # SUBR * 2 * 2.4 + 3) + 
102 * MAPST # SUBR * 2 «2.4 3] s 
103 % MAPSUB + SUBR * 2 # 2.4 а 3] а 
104 + МАРТ + Supp + 2 *" 2.4 + 3] а 
105 % MAX # 50688 * N +2. 12 # 49 е 
106 % MEMBER * SUBR * 2 # 2.5 * 33 + 
107 % MEMQ # SUBR * 2 # 2.5 * 32 ж 
108 % MIN # SUBR * N # 2 , 12 # 49 a 
109 e MINUS # SUBR * 1 * 2. 12 # 48 а 
110 % NCONC в 5088 + 2 # 2.7 + 39 а 
111 % NCONCI # SUBR + N # 2.7 « 39 + 
112 % NEGBIT # STATUS # N * 2. 15 # 61 + 
113 * NEO # SUBR * 2 # 2. 2 * 2) + 
114 + NEQP # SUBR * 2 # 2, 2 * 20 +» 
115 # NEQUAL # SUBR * 2 # 2, 2 * 2] + 
116 % NEROP + SUBR * 1 sz, 12 # 47 + 
117 œ NEWL # FSUBR + 2 # 2.7 * 38 + 
118 % NEXTL # FSUBR * 1] # 2.7 * 38 а 
119 % NOT + Supp + | # 2.2 * 20 «9 
120 % NTH * Supp * 2 # 2.5 » 33 +* 
121 * NULL * Supp е 1 *2.2 * 20 + 
122 * NULLSTRP + 5088 * 1 # 3. 1 * 78 + 
123 % NUMBP # Supp + 1 # 2. 12 # 47 + 
124 + OBASE # STATUS # 1 * 2. 15 # 62 а 
125 *# OBLIST # Supp ё | # 2, 6 * 36 + 
126 + ODDP # SUBR * 1 жә, 12 # 47 + 
127 % OR # FSUBR е N *2.3 » 22 а 
128 * ORF *SUBR + N # 2 , 4 # 30 + 
129 * OUTPUT “ Supp * | #2, 14 # 53 + 
130 * PAGE # SUBR * 0 #2, 14 # 56 ж 
131 * PAIRLIS + 5088 * 3 # 2, 8 + 42 + 
132 % PBUFOUT # STATUS # 1 * 2 . 15 + 63 ж 
133 + PEEKCH # Supp * 0 # 2 , 14 + 55 ж 
134 % PHENARETE # PHENAR + N * 4.4 è 9] e 
Vb 44 44 4 42 44 AAA + 4E 44 44 42 42 4922 42 44 ЧР 49 49 48 44 10 48 44 45 46 40 44 49 4 485 46 0 4 0 0 49 44 44 
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135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 


155. 


156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 


177 


178 
179 


INDEX DES FONCTIONS STANDARD 


Y+ 4$ 4 44 45 45 45 4$ 499 4E de 48 48 48 34 45 45 48 49 44 4E 44 4E 44 HE 44 4E 44 th T E 44 4E tk tt 48 Ç 49 T 44 44 4 t 49 0 0 40 0 $F 


Ф FONCTION # ТҮРЕ * ARG + SECT * PAGE + 
AE ++ t ++ T+ 4 45 45 4k 4; GE 4k 4k 4k GE 49 Gh Ah t Gh T AE dt SE СРСР 15 dh 45 49 dE dh dh ЧР РСР A 45 St СЬ 45 45 СЬ dh At tP tt 4 


“ PHENARETEFILE * PHENAR + N # 4 , & * 91 s 
* PHENARETES Ф PHENAR # | + 4.4 % 91 ж 
* PJOB # STATUS * 0 * 2.15 + 71 + 
* PLENGTH * SUBR “1 9*2.13* 51 + 
Ф PLUS * SUBR е м #2. 12 # 49 + 
Ф РОР + SUBR # 0 #2. 11 # ^46 + 
+ PREFORM # STATUS # 1 +* 2 , 15 + 63 « 
+ PREFPRINT + STATUS # 1 #2. 15 # 64 ж 
+ PREFTOPL # STATUS * 1 #2. 15 е 64 + 
* PRETTY Ф PRETTY + М # 4 , 1 * 83 s 
* PRETTYFILE ё PRETTY # М # 4 . 1 + 83 а 
* PRETTYP Ф PRETTY * | 4,1 * 83 ж 
* PRINI * SUBR # N #2. 14 # 56 ж 
* PRINC * SUBR “ 2 #2. 14 # 56 «+ 
# PRINT * SUBR f м #2, 14 # 56 ж 
* PROG е FSUBR + М * 2.3 + 28 + 
* PROGN Ф FSUBR + N * 2 , 1 * 18 ж 
# PUSH * SUBR "ON *2.,11* 46 ж 
* PUT # SUBR # 3 #2. 9 ë 44 ж 
# QUO # SUBR # М * 2. 12 g 49 «€ 
# QUOTE Ф FSUBR + | * 2. 1 * 19 + 
# READ * SUBR * 0 Se 14 ++ 55 + 
# READCH # SUBR " 0 #2. 14 + 55 жа 
“ READSTR # SUBR * 0 # 2. 14 ng 55 + 
* REM * SUBR # N #2. 12 # 49 ж 
# REMPROP # SUBR # 2 + 2 ,9 * 44 ж 
* REPEAT # FSUBR + N * 2.3 % 26 ж 
* REPLACE # SUBR “3 * 3.1.) * 80 ж 
* RESET * SUBR # 0 #2. 16 # 73 + 
* RETURN # SUBR # 1 #2. 3 % 29 ж 
* REVERSE # SUBR * 1 “2.6 % 36 ж 
* REVERSTR * SUBR # 1 #3, 1 * 79 + 
* RMARGIN + STATUS * 1 * 2. 15 + 63 + 
* RPLACA # SUBR # 2 # 2.7 % 37 ж 
# RPLACD # SUBR ə 2 #2. T # 37 ж 
“ RUNTIME # STATUS + 0 #2, 15 + 7) + 
# SELECT # FSUBR * М * 2,3 * 24 + 
Ф SELECTQ # FSUBR + N #2, 3 + 25 ж 
# SET # SUBR е N “2.7 * 37 ж 
* SETBIT * STATUS + М # 2 . 15 # 61 + 
# SETQ # FSUBR + М “2,7 + 37 + 
* SETQQ + FSUBR + М * 2.7 * 38 + 
* SETRG # STATUS # 1 % 2,15% 6] + 
# SMASH * SUBR ? 1 * 2 ç T % 40 + 
* SOME * SUBR # 2 #2. 4 # 30 + 
T ARA 34 44 4 EAE 44 Sh 48 44 48 de dh 44 4 4 44 48 SE 48 44 LE 45 db 48 38 48 48.48 48 4 48 UE 46-48 4 46 40 48 48 48 4 46 46 AUS 
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180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
e00 
201 
e02 
e03 
20% 
205 
206 
207 
208 
209 


INDEX DES FONCTIONS STANDARD 


4 $ A AR AE tt 44 49 440 @ 49 409 $ 49 49 439 4€ T + 43 43 43 0 42 49 42 44 09 43 44 + 4 4 44 tt tt $t $$ 0 44 t t t 00 


VW FONCTION + ТҮРЕ * ARG * SECT * PAGE * 
4 $ 44 $ + $ +  # $ $ f? 409 4 0 $ 2509404235. $ $ 0000049029400 49 42 4 1? 094949 h p $P 9 $ $ T+ 00 
* SPACES _# SUBR # 1 * 2 . 14 # 56 + 
* STATUS |. * SUBR е N # 2. 15 + 59 ж 
* STEPGC * STATUS + 1 * 2 , 15 * 68 + 
* STOP * SUBR # 0 * 2. 16 # 75 + 
+ STRING # SUBR "1 #3. 1 * 77 ж 
ә STRINGL * SUBR в 1 #3. 1 * 78 # 
* STRINGP * SUBR е 1 43.1 * 78 ж 
* SUB] * SUBR Ф 1 9* 2,120 * 48 + 
+ SUBR * SUBR в 2 #2. 1 * 19 + 
# SUBST * SUBR # 3 "2.060 * 35 ж 
# SUBSTRING * SUBR # 3 * 3.1 % 79 + 
+ SWAP + SUBR # 1 #2 . 12 + 48 ж 
* SWITCH # STATUS # 0 #2, 15 * 71 * 
* SYNONYM ‚+ SUBR в 2 ## 2.7 * 3B + 
# TEREAD * SUBR е 0 9*2, 14 + 55 + 
* TERPRI * SUBR Ф ] 2# 2 e 14 * 56 a 
* TESBIT + STATUS # М * 2 à 15 * 61 & 
+ TIMES * SUBR е N # aw 12 # 49 š 
# TOPLEVEL * SUBR # 0 #2.. 16 + 73 e 
+ TRACES + STATUS # N @ 2 . 15 + 69 e 
+ TRANSLATE е SUBR # з 3.1 % 80 + 
+ TTAB # Supp * 1 #2 . 14 # 57 ~ 
# TYPECHAR Ф STATUS * 2 * 2.15 * 62 ~ 
Ф TYPEFN * SUBR а 1 #@ 2.5 # 34 v 
* TYPEP * SUBR е 1 * 2 . 5 # 3⁄4 w 
* UNTIL * FSUBR * М * 2,3 % 06 e 
* UNTRACES Ф STATUS е“ N #2, 15 # 69 e 
* VAG * SUBR Ф 1] #2. 16 # 73 e 
+ WHILE Ф FSUBR + М * 2,3 % .&5 w 
* ZEROP * SUBR е 1 #2. 12 9 47 + 
44 44 44 44 46 dh 44 46 48 44.48 4 dt 42 52 4 48 40044000 48 46 46 45 48 db 55 48 49 46 42 D TT D à er ar œ 
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